Paul a un document qu’il doit vérifier par rapport à une liste de mots contenue dans un autre document. Si le document en cours de vérification contient l’un des mots de la liste, alors le mot du document (pas dans la liste de mots)

doit être mis en évidence en étant en gras. La liste de mots est longue, de l’ordre de 20 000 mots, et Paul se demande quelle est la meilleure façon de procéder.

Vous pouvez procéder de deux manières. Le premier est d’écrire votre propre macro qui fera les comparaisons pour vous. Si vous mettez les mots que vous voulez archiver dans un document nommé « checklist.doc » dans le lecteur C:, alors la macro suivante peut être utilisée:

Sub CompareWordList()

Dim sCheckDoc As String     Dim docRef As Document     Dim docCurrent As Document     Dim wrdRef As Object

sCheckDoc = "c:\checklist.doc"

Set docCurrent = Selection.Document     Set docRef = Documents.Open(sCheckDoc)

docCurrent.Activate

With Selection.Find         .ClearFormatting         .Replacement.ClearFormatting         .Replacement.Font.Bold = True         .Replacement.Text = "^&"

.Forward = True         .Format = True         .MatchWholeWord = True         .MatchCase = True         .MatchWildcards = False     End With

For Each wrdRef In docRef.Words         If Asc(Left(wrdRef, 1)) > 32 Then             With Selection.Find                 .Wrap = wdFindContinue                 .Text = wrdRef                 .Execute Replace:=wdReplaceAll             End With         End If     Next wrdRef

docRef.Close     docCurrent.Activate End Sub

Tout ce que vous avez à faire est d’ouvrir le document que vous souhaitez vérifier, puis d’exécuter la macro. Si le document contenant les mots à vérifier est nommé différemment ou à un emplacement différent, modifiez simplement la ligne qui définit sCheckDoc afin qu’il ait un nom de chemin complet différent pour le document.

Fondamentalement, la macro saisit chaque mot de la liste de mots, puis effectue une opération Rechercher et remplacer en utilisant ce mot dans le document. Si vous avez beaucoup, beaucoup de mots dans la liste de mots, l’exécution de la macro peut prendre un certain temps – 20 000 opérations de recherche et de remplacement, c’est bien peu!

L’autre approche que vous pouvez essayer est d’utiliser une application tierce pour faire le travail à votre place. Il y a un bon article et une application disponible gratuitement sur ce site:

http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=160

Cette approche est particulièrement intéressante car elle ne rend pas seulement les mots correspondants en gras, mais vous permet de les définir sur une couleur que vous souhaitez.

_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 (502) 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-Highlight_Words_from_a_Word_List [Mettre en évidence les mots d’une liste de mots].