Dans l'article d'aujourd'hui, nous sommes ravis de vous informer de la manière de rechercher et de remplacer le contenu de plusieurs documents Word.
En règle générale, la plupart des utilisateurs de Word connaissent bien la fonction « Rechercher et remplacer ». Elle permet de traiter par lots des documents entiers, ce qui représente un gain de temps considérable. Avez-vous déjà pensé à utiliser cette option pour plusieurs documents, par exemple tous les fichiers d'un dossier spécifique ?
Puisqu'il est toujours nécessaire de rechercher et de remplacer le contenu d'un lot de fichiers, il serait bien que la fonction soit réalisée. Et notre méthode consiste à utiliser la macro. Veuillez lire la suite pour en savoir plus.
Étapes pour installer et exécuter la macro
- Avant toute chose, placez tous les fichiers dans un seul dossier et ouvrez Word.
- Cliquez ensuite sur l'onglet "Développeur".
- Cliquez ensuite sur "Visual Basic". Ou appuyez simplement sur "Alt + F11" pour déclencher l'éditeur VBA.
- Cliquez ensuite sur le projet "Normal".
- Cliquez ensuite sur l'onglet "Insérer" puis choisissez "Module".
- Vous avez maintenant inséré avec succès un nouveau module. Double-cliquez dessus pour ouvrir l'espace de codage.
- Collez-y les codes ci-dessous :
Sub FindAndReplaceInFolder()
Dim objDoc As Document
Dim strFile As String
Dim strFolder As String
Dim strFindText As String
Dim strReplaceText As String
' Pop up input boxes for user to enter folder path, the finding and replacing texts.
strFolder = InputBox("Enter folder path here:")
strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
strFindText = InputBox("Enter finding text here:")
strReplaceText = InputBox("Enter replacing text here:")
' Open each file in the folder to search and replace texts. Save and close the file after the action.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
With objDoc
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.text = strFindText
.Replacement.text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
objDoc.Save
objDoc.Close
strFile = Dir()
End With
Wend
End Sub
- Enfin, cliquez sur "Exécuter".
- Maintenant, une boîte de saisie apparaîtra. Entrez le chemin du dossier dans lequel vous stockez les documents.
- Cliquez ensuite sur "OK" et il y a la deuxième case. Entrez les textes que vous souhaitez rechercher.
- Continuez à cliquer sur « OK » pour ouvrir le troisième champ de saisie, dans lequel vous entrez les textes de remplacement et cliquez sur le bouton « OK ». La macro remplacera automatiquement tout le contenu et enregistrera la modification.
Comme vous le voyez, cette macro vous fournit 3 zones de saisie dans lesquelles vous pouvez entrer le chemin du dossier, les textes de recherche et de remplacement. Vous pouvez donc attribuer un bouton à cette macro et l'ajouter à la "Barre d'outils d'accès rapide" pour la réutiliser.
Quant à savoir comment assigner un bouton à une macro, vous pouvez lire cet article : Comment supprimer le formatage des textes collés avec macro et VBA dans votre mot
Protégez les données précieuses
Des erreurs et des problèmes peuvent survenir dans Word. En conséquence, des documents précieux peuvent être endommagés. En rencontrant doc dommage, il est conseillé de se procurer un outil de récupération professionnel afin de récupérer les données.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris xls dommage et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com