Comment rechercher et remplacer plusieurs textes dans Word à l'aide d'Excel ?

Dans Microsoft Word, la fonction Rechercher et Remplacer est un moyen efficace de rechercher et remplacer rapidement du texte spécifique. Cependant, lorsque vous devez remplacer plusieurs termes différents, saisir chacun manuellement peut être chronophage.

Pour rationaliser ce processus, vous pouvez utiliser Excel pour créer une liste des textes à rechercher et à remplacer, puis automatiser la tâche avec un simple code VBA. Ce tutoriel vous guidera à travers l'utilisation d'Excel et de VBA pour rechercher et remplacer plusieurs textes dans un seul document Word. De plus, je vous montrerai comment étendre cela à plusieurs documents et vous présenterai une fonctionnalité puissante de Kutools pour le remplacement de texte en lot.

Rechercher et remplacer plusieurs textes dans un document Word à partir d'Excel avec un code VBA

Rechercher et remplacer plusieurs textes dans plusieurs documents Word à partir d'Excel avec un code VBA

Rechercher et remplacer plusieurs textes dans plusieurs documents Word avec une fonctionnalité puissante

Rechercher et remplacer plusieurs textes dans un document Word à partir d'Excel avec un code VBA

Si vous souhaitez rechercher et remplacer certains textes dans un seul fichier Word, le code VBA suivant peut vous aider.

1. Dans la feuille de calcul Excel, créez une colonne contenant les textes que vous souhaitez rechercher et remplacer, et une autre colonne avec les textes de remplacement comme indiqué dans la capture d'écran ci-dessous. Ensuite, appuyez simultanément sur Alt+ F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Ensuite, cliquez sur Insertion > Module, copiez et collez le code VBA ci-dessous dans la fenêtre.

Code VBA : Rechercher et remplacer plusieurs textes dans un fichier Word

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Après avoir collé le code, toujours dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Outils > Références, voir capture d'écran :

4. Dans la boîte de dialogue Références – VBAProject qui s'affiche, sélectionnez la bibliothèque d'objets Microsoft Word 16.0 dans la liste déroulante, voir capture d'écran :

5. Cliquez sur le bouton OK pour fermer la boîte de dialogue, puis appuyez sur la touche F5 pour exécuter ce code. Dans la fenêtre Parcourir qui s'affiche, sélectionnez le fichier Word dans lequel vous souhaitez remplacer les textes, voir capture d'écran :

6. Ensuite, cliquez sur OK, dans la boîte de dialogue suivante, maintenez la touche Ctrl enfoncée pour sélectionner séparément les cellules contenant le texte original et le nouveau texte que vous souhaitez utiliser, voir capture d'écran :

7. Puis, cliquez sur le bouton OK, maintenant, les textes sont trouvés et remplacés par les nouveaux textes dans votre document spécifié, et le fichier s'ouvre également. Vous devez l'enregistrer pour conserver les modifications.

Rechercher et remplacer plusieurs textes dans plusieurs documents Word à partir d'Excel avec un code VBA

J'ai également créé un code VBA pour vous aider à rechercher et remplacer plusieurs textes dans plusieurs documents Word. Suivez ces étapes :

1. Ouvrez le fichier Excel contenant deux colonnes de valeurs à remplacer et à remplacer par comme indiqué dans la capture d'écran ci-dessous, puis appuyez simultanément sur Alt+ F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Ensuite, cliquez sur Insertion > Module, copiez et collez le code VBA ci-dessous dans la fenêtre.

Code VBA : Rechercher et remplacer plusieurs textes dans plusieurs fichiers Word

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Toujours dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Outils > Références, dans la boîte de dialogue Références – VBAProject, sélectionnez les options Bibliothèque d'objets Microsoft Word 16.0 et Microsoft Scripting Runtime dans la liste déroulante, voir capture d'écran :

4. Après avoir coché les deux options, cliquez sur OK pour fermer la boîte de dialogue, puis continuez en appuyant sur la touche F5 pour exécuter ce code. Dans la fenêtre Parcourir qui s'ouvre, choisissez un dossier contenant les documents Word dans lesquels vous souhaitez effectuer la recherche et le remplacement, voir capture d'écran :

5. Cliquez sur le bouton OK, dans la boîte de dialogue qui s'affiche, maintenez la touche Ctrl enfoncée pour sélectionner séparément les colonnes de texte original et de nouveau texte que vous souhaitez utiliser, voir capture d'écran :

6. Enfin, cliquez sur OK, et les textes originaux sont remplacés par les nouveaux dans ces fichiers. Une fois terminé, une boîte de dialogue s'affichera comme indiqué dans la capture d'écran ci-dessous :

7. Cliquez sur OK pour fermer la boîte de dialogue. Vous pouvez ensuite aller vérifier les résultats convertis dans les fichiers.

Rechercher et remplacer plusieurs textes dans plusieurs documents Word avec une fonctionnalité puissante

Dans cette section, je vais expliquer comment rechercher et remplacer du texte en lot dans plusieurs documents Word en utilisant Word lui-même, plutôt qu'Excel. En utilisant le puissant Kutools for Word, vous pouvez rechercher efficacement des textes spécifiques et les remplacer par de nouveaux dans le corps principal, les en-têtes, les pieds de page, les commentaires, etc., tout en mettant en évidence les résultats si nécessaire.

1. Ouvrez un fichier Word, puis cliquez sur Kutools Plus > Recherche et Remplacement en Lot, voir capture d'écran :

2. Dans la boîte de dialogue Recherche et Remplacement en Lot qui s'ouvre, veuillez effectuer les opérations suivantes :

• Cliquez sur le bouton Ajouter pour ajouter les fichiers Word dans lesquels vous souhaitez rechercher et remplacer des textes ;
• Dans le volet de gauche, cliquez sur Ajouter une ligne depuis le ruban supérieur ;
• Dans le champ inséré, entrez le texte original et le nouveau texte dans les colonnes Rechercher et Remplacer respectivement que vous souhaitez trouver et remplacer. De plus, vous pouvez spécifier une couleur pour mettre en évidence les textes remplacés selon vos besoins.

3. Après avoir créé les critères de recherche, cliquez sur le bouton Remplacer pour accéder à l'onglet Aperçu des Résultats afin de visualiser les résultats de recherche et de remplacement. Voir capture d'écran :

4. Ensuite, cliquez sur le bouton Fermer, et une boîte de dialogue s'affiche pour vous rappeler si vous souhaitez enregistrer ce scénario, cliquez sur Oui pour l'enregistrer, et sur Non pour l'ignorer, voir capture d'écran :

Faites plus en moins de temps avec Kutools pour Word amélioré par l'IA

Kutools pour Word n'est pas seulement un ensemble d'outils - c'est une solution intelligente conçue pour augmenter votre productivité. Avec des fonctionnalités pilotées par l'IA et les fonctionnalités les plus essentielles, Kutools vous aide à accomplir plus en moins de temps :

• Résumez, réécrivez, composez et traduisez du contenu instantanément.
• Relisez le texte en temps réel avec des suggestions de grammaire, de ponctuation et de style pendant que vous écrivez.
• Reformulez et traduisez du contenu tout en conservant la mise en page, le style et la structure intacts.
• Traduisez votre contenu dans plus de 40 langues facilement, élargissant ainsi votre portée mondiale.
• Recevez une aide instantanée et des informations intelligentes basées sur le contenu de votre document actuel.
• Demandez comment effectuer une tâche - comme supprimer des sauts de section - et l'IA vous guidera ou le fera pour vous.
• Expurgez des informations sensibles ou confidentielles en quelques secondes pour assurer une confidentialité totale.
• Tous les outils fonctionnent de manière transparente dans Word, toujours à portée de main.

• Créez, affinez, traduisez, résumez et sécurisez des documents sans effort.
• Améliorez la grammaire, la clarté et le ton en temps réel pendant que vous écrivez.
• Reformulez et traduisez du contenu sans changer la mise en page ou la mise en forme.
• Demandez comment effectuer une tâche - comme supprimer des sauts de section - et l'IA vous guidera ou le fera pour vous.
• Tous les outils fonctionnent de manière transparente dans Word, toujours à portée de main.

En savoir plus sur Kutools for Word Télécharger maintenant