Comment rechercher et remplacer plusieurs textes dans Word à l’aide d’Excel ?
AuteurXiaoyang•Date de modification
Dans Microsoft Word, la fonction Rechercher et remplacer permet de trouver et de substituer rapidement un texte spécifique. Toutefois, lorsqu’il s’agit de remplacer plusieurs termes différents, saisir chacun d’eux manuellement peut vite devenir chronophage.
Pour simplifier ce processus, utilisez Excel pour créer une liste des textes à rechercher et remplacer, puis automatisez l’opération grâce à un court code VBA. Ce tutoriel vous accompagne pas à pas dans l’utilisation combinée d’Excel et de VBA pour effectuer plusieurs remplacements de texte au sein d’un même document Word. Vous découvrirez également comment appliquer cette méthode à plusieurs documents et profiterez d’une fonctionnalité avancée de Kutools dédiée au remplacement par lots de texte.
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 être utile.
1. Dans une feuille Excel, créez une colonne contenant les textes que vous souhaitez rechercher et remplacer, et une autre colonne avec leurs remplacements, comme illustré ci-dessous. Ensuite, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez ensuite sur Insertion > Module, puis copiez-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. Dans la fenêtre Microsoft Visual Basic pour Applications, après avoir collé le code, cliquez sur Outils > Références, voir capture d’écran :
4. Dans la boîte de dialogue Références – VBAProject qui s’ouvre, sélectionnez dans la liste la bibliothèque Microsoft Word 16,0 Object Library. 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’ouvre, sélectionnez le fichier Word dans lequel vous souhaitez effectuer les remplacements (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 « Texte original » et « Nouveau texte » que vous souhaitez utiliser (voir capture d’écran) :
7. Enfin, cliquez sur le bouton OK. Les textes sont alors recherchés et remplacés par le nouveau texte dans votre document spécifié, et le fichier s’ouvre automatiquement. N’oubliez pas de 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 développé un code VBA pour vous permettre de rechercher et remplacer plusieurs textes dans plusieurs documents Word. Voici la marche à suivre :
1. Ouvrez le fichier Excel contenant deux colonnes de valeurs (celles à remplacer et leurs remplacements), comme illustré ci-dessous, puis appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Ensuite, cliquez sur Insertion>Module, puis copiez-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 pour Applications, cliquez sur Outils > Références. Dans la boîte de dialogue Références – VBAProject, cochez les options Microsoft Word 16,0 Object Library et Microsoft Scripting Runtime dans la liste, comme illustré dans la capture d’écran :
4. Après avoir coché ces deux options, cliquez sur 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’ouvre, choisissez un dossier contenant les documents Word sur lesquels vous souhaitez effectuer le Rechercher et remplacer (voir capture d’écran) :
5. Dans la boîte de dialogue qui s’ouvre, maintenez la touche Ctrl enfoncée pour sélectionner séparément les colonnes « Texte original » et « Nouveau texte » que vous souhaitez utiliser, puis cliquez sur le bouton OK. Voir la capture d’écran :
6. Enfin, cliquez sur OK. Les textes originaux sont alors remplacés par les nouveaux textes dans tous ces fichiers. À la fin du traitement, une boîte de dialogue s’affiche, comme illustré ci-dessous :
7. Cliquez sur OK pour fermer la boîte de dialogue. Vous pouvez ensuite ouvrir les fichiers pour vérifier les résultats.
Rechercher et remplacer plusieurs textes dans plusieurs documents Word avec une fonctionnalité puissante
Dans cette section, je vous explique comment effectuer une recherche et un remplacement en lot du texte dans plusieurs documents Word directement depuis Word, sans passer par Excel. Grâce à la puissante fonction Kutools pour Word, vous pouvez rechercher efficacement des textes spécifiques et les remplacer par de nouveaux contenus — dans le corps du document, les en-têtes, les pieds de page, les commentaires, etc. — tout en mettant en surbrillance les résultats si nécessaire.
Kutools pour Word
Kutools pour Word vous aide à gérer plus rapidement les tâches quotidiennes liées aux documents grâce à des outils pratiques intégrés directement dans Microsoft Word — aucune programmation ni configuration complexe requise.
Rédaction, révision, traduction et résumé assistés par l’IA
Recherche et remplacement en lot dans tous vos documents
Fusionnez et divisez facilement des documents Word
1. Ouvrez un fichier Word, puis cliquez sur KUTOOLS PLUS > Recherche et remplacement en lot. Voir la capture d’écran :
2. Dans la boîte de dialogue Recherche et remplacement en lot qui s’ouvre, procédez comme suit :
Cliquez sur le bouton Ajouterpour ajouter les fichiers Word dans lesquels vous souhaitez Rechercher et remplacer des textes ;
Dans le volet gauche, cliquez sur Ajouter une ligneen haut de la barre Ruban ;
Dans le champ inséré, saisissez respectivement le texte original et le nouveau texte dans les colonnes Rechercher et Remplacer. Vous pouvez également spécifier une couleur pour mettre en surbrillance les textes remplacés, selon vos besoins.
3. Une fois les critères de recherche définis, cliquez sur le bouton Remplacer pour accéder à l’onglet Aperçu des résultats et visualiser les résultats du Rechercher et remplacer. Voir la capture d’écran :
4. Ensuite, cliquez sur le bouton Fermer. Une boîte de dialogue s’ouvre alors pour vous demander si vous souhaitez enregistrer ce scénario. Cliquez sur Oui pour l’enregistrer ou sur Non pour l’ignorer. Voir la capture d’écran :
Conseils: Cette fonctionnalité permet également d’effectuer les opérations suivantes :
Rechercher et remplacer des caractères spéciaux dans plusieurs documents Word ;
Rechercher et remplacer plusieurs chaînes avec une mise en forme spécifique dans plusieurs documents Word ;
Rechercher et remplacer plusieurs chaînes dans plusieurs fichiers TXT, HTM ou HTML.
Faites plus en moins de temps grâce à Kutools pour Word renforcé par l’IA
Kutools pour Word n’est pas un simple ensemble d’outils : c’est une solution intelligente conçue pour booster votre productivité. Grâce à ses fonctionnalités essentielles et à ses capacités pilotées par l’IA, Kutools vous permet d’en faire davantage en moins de temps :
Résumez, réécrivez, composez et traduisez du contenu en un instant.
Relisez votre texte en temps réel avec des suggestions grammaticales, typographiques et stylistiques dès que vous écrivez.
Reformulez et traduisez le contenu tout en conservant scrupuleusement la mise en page, le style et la structure d’origine.
Traduisez facilement votre contenu dans plus de 40 langues pour élargir votre portée à l’échelle mondiale.
Bénéficiez d’une assistance instantanée et de suggestions intelligentes, directement basées sur votre document actuel.
Demandez comment effectuer une tâche – par exemple, supprimer un saut de section – et l’IA vous guidera ou s’en chargera à votre place.
Masquez en quelques secondes les informations sensibles ou confidentielles pour garantir une confidentialité totale.
Tous les outils fonctionnent de manière fluide directement dans Word, toujours à portée de main.
Créez, affinez, traduisez, résumez et sécurisez vos documents en toute simplicité.
Améliorez la grammaire, la clarté et le ton de votre texte en temps réel, au fur et à mesure que vous écrivez.
Reformulez et traduisez le contenu sans modifier en quoi que ce soit la mise en page ni le formatage.
Demandez comment effectuer une tâche – par exemple, supprimer un saut de section – et l’IA vous guidera ou s’en chargera à votre place.
Tous les outils fonctionnent de manière fluide directement dans Word, toujours à portée de main.
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels
