Hilary note que la plupart des documents utilisés par leur entreprise sont normalisés sur une police Times Roman. Cependant, de temps en temps, quelqu’un éditera un document et appliquera une police différente à une partie du texte qu’il contient. Elle aimerait trouver facilement ces «anomalies de formatage». Hilary se demande s’il existe un moyen de rechercher dans un document du texte qui n’utilise pas une police particulière.

Il existe plusieurs façons de trouver ce dont vous avez besoin et, éventuellement, de résoudre le problème. Tout d’abord, vous pouvez utiliser Rechercher et remplacer de cette manière:

  1. Appuyez sur Ctrl + F. Word affiche l’onglet Rechercher de la boîte de dialogue Rechercher et remplacer.

  2. Cliquez sur le bouton Plus, s’il est disponible.

  3. Assurez-vous que la case Rechercher est vide.

  4. Cliquez sur Format, puis choisissez Police. Word affiche la boîte de dialogue Rechercher une police. (Voir la figure 1.)

  5. Utilisez les commandes de la boîte de dialogue pour indiquer que vous souhaitez rechercher la police Times Roman que vous utilisez. (Choisissez simplement la police. Vous n’avez pas à spécifier d’autres paramètres sauf si vous le souhaitez.)

  6. Cliquez sur OK. Les spécifications de police que vous recherchez apparaissent juste en dessous de la zone Rechercher.

  7. Cliquez sur la case à cocher Mettre en surbrillance tous les éléments.

  8. Cliquez sur Rechercher tout.

À ce stade, la boîte de dialogue se ferme et Word met consciencieusement en évidence toutes les instances de Times Roman dans votre document. Vous pouvez facilement faire défiler le document pour voir ce qui n’est pas mis en surbrillance – ce sont les «anomalies» que vous recherchez.

Vous pouvez également utiliser Rechercher et remplacer pour appliquer une mise en forme remarquable à du texte qui n’est pas en police Times Roman. Déterminez simplement une mise en forme que vous n’utilisez pas dans le document, comme des doubles soulignements ou du texte rouge. Sélectionnez l’ensemble du document (Ctrl + A) et appliquez cette mise en forme à l’ensemble du document. Utilisez ensuite Rechercher et remplacer pour rechercher toutes les instances de Times Roman (voir les étapes ci-dessus) et remplacez-les par Times Roman sans le formatage remarquable que vous avez précédemment appliqué. Ce que vous obtenez, ce n’est que le texte qui n’est pas formaté Times Roman avec le formatage remarquable.

Si vous préférez, vous pouvez utiliser une macro pour modifier la police utilisée dans le document. Voici une petite macro qui examine la police utilisée pour chaque mot de votre document:

Sub FixFormatAnomalies()

Dim aWord

For Each aWord In ActiveDocument.Words         If aWord.Font.Name <> "Times Roman" Then             aWord.Font.Name = "Times Roman"

End If     Next aWord End Sub

Si la police utilisée pour un mot ne correspond pas à ce que vous voulez, la routine change la police. La seule chose que vous devrez faire pour que la macro fonctionne dans votre cas est de changer le nom de police souhaité sur deux lignes.

(Vous voudrez utiliser le nom de la police exactement tel qu’il apparaît dans la liste des polices utilisables par Word. Faites particulièrement attention à la capitalisation.)

Une autre approche consiste simplement à vérifier chaque caractère du document et à mettre en surbrillance le caractère s’il n’utilise pas la police souhaitée. La macro suivante met en évidence les caractères incriminés en jaune:

Sub HighlightOtherFonts()

Dim iCounter As Integer     Dim sFontName As String     Dim sPrompt As String     Dim sTitle As String     Dim sDefault As String     Dim c As Range

' Gets the name of the font as typed by the user     sPrompt = "Type the name of the font that is OK to "

sPrompt = sPrompt & "have in the document."

sTitle = "Acceptable Font Name"

sDefault = ActiveDocument.Styles(wdStyleNormal).Font.Name     sFontName = InputBox(sPrompt, sTitle, sDefault)



' Verifies that the name of the font is valid     For Each sFont In Application.FontNames         If UCase(sFontName) = UCase(sFont) Then             ' Changes the user-typed name of the font to             ' the version recognized by the application             ' Example: 'times new roman' (user-typed) is             ' changed to 'Times New Roman' (application version)

sFontName = sFont             Exit For         Else             ' Terminates the loop if the name of the font is invalid             iCounter = iCounter + 1             If iCounter = FontNames.Count Then                 sPrompt = "The font name as typed does not match "

sPrompt = sPrompt & "any fonts available to the "

sPrompt = sPrompt & "application."

sTitle = "Font Name Not Found"

MsgBox sPrompt, vbOKOnly, sTitle                 Exit Sub             End If         End If     Next sFont

' Checks each character in the document, highlighting     ' if the character's font doesn't match the OK font     For Each c In ActiveDocument.Characters         If c.Font.Name <> sFontName Then             ' Highlight the selected range of text in yellow             c.FormattedText.HighlightColorIndex = wdYellow         End If     Next c End Sub

L’une des fonctionnalités intéressantes de cette macro est qu’elle vous demande la police que vous trouvez acceptable. Il vérifie ensuite que ce que vous entrez correspond à l’une des polices disponibles dans le système. Étant donné que la macro vérifie chaque caractère du document individuellement, vous devrez peut-être faire preuve de patience pendant son exécution. Plus le document est long, plus la macro prend du temps pour terminer son travail.

Si vous voulez simplement trouver la prochaine occurrence d’un changement de police, alors la macro très courte suivante est très pratique:

Sub FindDifferentFont()

Selection.SelectCurrentFont   Selection.Collapse wdCollapseEnd End sub

La méthode SelectCurrentFont étend la sélection actuelle jusqu’à ce qu’il y ait un changement dans la police (police) ou la taille de la police. Donc, si vous commencez au début du document et exécutez la macro (vous pourriez peut-être l’assigner à une touche de raccourci), le point d’insertion est déplacé là où la police actuelle se termine et une nouvelle police commence.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (11069) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Finding_Text_Not_Using_a_Particular_Font [Recherche de texte sans utiliser une police particulière].