Lorsque vous utilisez Word, jour après jour, vous avez tendance à accumuler beaucoup de documents. Si ces documents sont utilisés à des fins standard, il n’est pas inhabituel que les documents contiennent certaines des mêmes informations.

Par exemple, vous pouvez avoir des documents contenant des histoires que vous soumettez à différents journaux et magazines. Bien que les histoires individuelles puissent être différentes, chaque document peut contenir votre nom et vos coordonnées. Si vos informations de contact changent, ou si vous décidez d’utiliser une orthographe différente pour votre nom, vous pouvez aspirer à un moyen d’apporter une modification universelle à tous les documents à la fois.

Malheureusement, Word n’inclut pas ce type de fonctionnalité. Vos options sont soit de s’appuyer sur une solution tierce, soit d’écrire votre propre macro pour effectuer les modifications. Il existe un certain nombre de programmes tiers qui offrent le type de fonction de recherche et de remplacement nécessaire lorsque vous travaillez avec plusieurs documents. Voici quelques-uns de ceux suggérés par les abonnés de WordTips:

Le développeur de Word, Malcom Smith, a également créé une macro qui effectuera des recherches et les remplacera dans les répertoires. Si vous voulez le voir, vous pouvez visiter http://www.dragondrop.com. Cliquez simplement sur le lien Rechercher et remplacer pour Word, sur le côté droit de la page.

Si cela ne vous dérange pas d’utiliser vos propres macros, ce qui suit montre les techniques inhérentes à l’exploration des documents dans un dossier particulier.

Public Sub MassReplace()

With Application.FileSearch         .LookIn = "C:\"             ' where to search         .SearchSubFolders = True    ' search the subfolders         .FileName = "*.doc"         ' file pattern to match

' if more than one match, execute the following code         If .Execute() > 0 Then             ' for each file you find, run this loop             For i = 1 To .FoundFiles.Count                 ' open the file based on its index position                 Documents.Open FileName:=.FoundFiles(i)



' search and replace the address                 selection.Find.ClearFormatting                 selection.Find.Replacement.ClearFormatting                 With selection.Find                     .Text = "OldAddress"

.MatchCase = True                     .Replacement.Text = "NewAddress"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace e-mail address                 With selection.Find                     .Text = "Oldemail"

.Replacement.Text = "Newemail"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document                 ActiveDocument.Close wdSaveChanges             Next i         Else             ' if the system cannot find any files             ' with the .doc extension             MsgBox "No files found."

End If     End With End Sub

Cette macro est assez puissante et vous permet non seulement de changer une adresse postale, mais également votre adresse e-mail. Tout ce que vous avez à faire est d’apporter des modifications pour spécifier le répertoire et le lecteur à utiliser dans votre recherche, ainsi que les anciennes et les nouvelles informations. Modifiez le paramètre .Lookin au début de la macro pour indiquer où la macro doit rechercher; assurez-vous d’utiliser un chemin complet. Ensuite, dans le corps principal de la macro, mettez à jour les paramètres .Text et .Replacement.Text pour refléter ce que vous recherchez et remplacez par.

_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 (3783) s’applique à Microsoft Word 97, 2000, 2002 et 2003.