Au fil du temps, il est tout à fait possible de collecter un grand nombre de documents. À un moment donné, vous souhaiterez peut-être apporter la même modification à chacun des documents de la collection. Par exemple, vous devrez peut-être changer le nom de la société dans chaque document. Évidemment, vous pouvez ouvrir chaque document, effectuer la modification, puis enregistrer le document, mais ce processus peut rapidement devenir fatigant si vous avez des centaines ou des milliers de documents à traiter.

Que faire? Conformément à ce qui a été fait dans d’autres numéros de _WordTips, _ chaque fois que vous avez quelque chose de banal et de fastidieux à accomplir, vous pouvez souvent utiliser une macro pour gérer le travail à votre place. Par exemple, vous pouvez écrire une macro qui parcourt tous les documents d’un répertoire, charge chacun à son tour, recherche et modifie le texte nécessaire et réenregistre le document. Ce processus n’est pas différent du processus que vous suivriez manuellement, sauf qu’il est effectué sous le contrôle de la macro. Cela rend les choses beaucoup plus faciles et plus rapides.

Voici un exemple de macro Word qui pourrait faire l’affaire:

Public Sub MassReplace()

Dim Directory As String     Dim FType As String     Dim FName As String

Directory = "d:\temp"

FType = "*.docx"



ChDir Directory     FName = Dir(FType)

' for each file you find, run this loop     Do While FName <> ""

' open the file         Documents.Open FileName:=FName

' search and replace the company name         selection.Find.ClearFormatting         selection.Find.Replacement.ClearFormatting         With selection.Find             .Text = "OldCompanyName"

.MatchCase = True             .Replacement.Text = "NewCompanyName"

End With         selection.Find.Execute Replace:=wdReplaceAll

' replace street address         With selection.Find             .Text = "OldStreetAddress"

.Replacement.Text = "NewStreetAddress"

End With         selection.Find.Execute Replace:=wdReplaceAll

' replace the City, State, and Zip code         With selection.Find             .Text = "OldCityStateAndZip"

.Replacement.Text = "NewCityStateAndZip"

End With         selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document         ActiveDocument.Close wdSaveChanges

' look for next matching file         FName = Dir     Loop End Sub

Cette macro est assez puissante et vous permet non seulement de changer le nom d’une entreprise, mais également l’adresse de votre entreprise. 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 nouvelles informations sur la société.

Si le traitement des macros dépasse un peu ce que vous souhaitez aborder, il existe également un certain nombre de produits commerciaux disponibles qui fonctionneront avec les documents Word. Plusieurs abonnés ont suggéré les programmes suivants:

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 (8477) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

lien: / word-Mass_Search_and_Replace [Mass Search and Replace].