Comment rechercher et remplacer plusieurs mots en même temps dans un document Word?

Word fournit une fonction Rechercher et remplacer pour rechercher toutes les instances d'un mot ou d'une expression et les remplacer par un nouveau mot en même temps. Mais si vous souhaitez rechercher et remplacer différents mots en même temps, cette fonction intégrée ne peut pas vous aider. Dans cet article, nous parlons d'une méthode VBA pour rechercher et remplacer plusieurs mots différents en même temps dans un document Word.

Rechercher et remplacer plusieurs mots en même temps dans Word avec du code VBA
Trouvez et remplacez facilement plusieurs mots en même temps dans Word avec une fonctionnalité incroyable

Rechercher et remplacer plusieurs mots en même temps dans Word avec du code VBA

Veuillez procéder comme suit pour rechercher et remplacer plusieurs mots en même temps dans un document Word.

1. Ouvrez le document Word que vous souhaitez rechercher et remplacer plusieurs mots en même temps, puis appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA: recherchez et remplacez plusieurs mots en même temps dans Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. appuie sur le F5 clé pour exécuter le code.

4. Dans le premier Kutools for Word boîte de dialogue, entrez les mots que vous trouverez et remplacez dans la zone de texte, séparez-les par une virgule, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

5. Dans le second Kutools for Word boîte de dialogue, entrez les nouveaux mots que vous allez remplacer (ces mots doivent également être séparés par des virgules), puis cliquez sur le bouton OK .

Remarque: Dans ce cas, tous «KTE» dans ce document sera remplacé par "Nouveau", et le «KTO» et le «KTW» sera remplacé par "Tester" et le "Terminer". Veuillez les modifier selon vos besoins.

Trouvez et remplacez facilement plusieurs mots en même temps dans Word avec une fonctionnalité incroyable

1. Lancez l'application Microsoft Word, cliquez sur Kutools Plus > Rechercher et remplacer par lots.

2. dans le Rechercher et remplacer par lots fenêtre, veuillez configurer comme suit.

• 2.1 cliquez sur le bouton> Ajouter un fichier or ajouter un dossier pour ajouter un ou plusieurs documents dans lesquels vous trouverez et remplacez plusieurs mots.
  
• 2.2 Cliquez sur le Ajouter une rangée pour insérer les champs de recherche et de remplacement. Si vous souhaitez rechercher et remplacer trois textes différents en même temps, veuillez créer trois lignes.
• 2.3 Dans chaque ligne, entrez les mots existants que vous allez remplacer par un nouveau dans le Trouvez colonne, puis entrez les nouveaux mots dans la remplacer colonne.
• 2.4 Spécifiez le Type de recherche pour chaque ligne.
• 2.5 Dans le Retrouver dans colonne, choisissez où appliquer la recherche et le remplacement. Il comprend Document principal, En-tête et le Pied de page dans cette section. Vous pouvez en choisir un, deux ou tous en fonction de vos besoins.
• 2.6. Cliquez sur l' remplacer bouton pour démarrer l'opération. Voir la capture d'écran:

Ensuite, les mots spécifiques sont remplacés dans les documents sélectionnés en même temps.

Conseil: Vous pouvez mettre en évidence le résultat avec une couleur d'arrière-plan en spécifiant une certaine couleur dans le Souligner colonne pour une ligne.

  Si vous souhaitez bénéficier d'un essai gratuit (60 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

Plongez dans les fonctionnalités mises en évidence ci-dessous ou cliquez ici pour découvrir toute la puissance de Kutools for Word.

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/XLSX)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois 

✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers   /  Redimensionner toutes les images   /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte 

🧹 Nettoyage sans effort: Balayez Espaces supplémentaires  /  Sauts de section  /   Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  /  Pour plus d'outils de suppression, rendez-vous sur notre groupe Supprimer

➕ Insertions créatives: insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  QR Code  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  /  Découvrez-en plus dans notre groupe d'insertion

🔍 Sélections de précision: Identifiez des pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  /  Naviguez en toute simplicité grâce à notre groupe Select

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion 

Transformez vos tâches Word avec Kutools. 👉 Téléchargez avec un essai de 30 jours maintenant 🚀.

Plus       Téléchargement gratuit      Achat