Note: The other languages of the website are Google-translated. Back to English

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 pour 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 pour 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 «KTO» et «KTW» sera remplacé par "Tester" et "Terminer". Veuillez les modifier selon vos besoins.


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

, Rechercher et remplacer par lots caractéristique de Kutools pour Word peut aider à trouver et remplacer facilement différents textes dans un document ou sur plusieurs documents en même temps.

Avant d'appliquer cette fonctionnalité, veuillez prendre quelques minutes pour téléchargez et installez-le d'abord.

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 Find 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 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.

Pointe: Vous pouvez mettre en évidence le résultat avec une couleur d'arrière-plan en spécifiant une certaine couleur dans le Surligner 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.


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (21)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu ?
Ce commentaire a été minimisé par le modérateur sur le site
cela fonctionnera-t-il dans le bureau Excel 365
Ce commentaire a été minimisé par le modérateur sur le site
Un moyen de rendre cette affaire sensible ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Cela fonctionne bien avec les mots anglais. Maintenant, je fais un document où je traduis de l'anglais vers le gujarati. Ainsi, lorsque j'applique ceci, (Rechercher des mots anglais) et (Remplacer par des mots gujarati), cela change mais il apparaît comme "???". Ne montre pas le mot gujarati mais juste des points d'interrogation ? Une aide supplémentaire ? S'il te plaît.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Shailesh, face au même problème. Avez-vous trouvé une solution à cela. J'essaie également de comprendre comment passer du chinois à l'anglais.
Ce commentaire a été minimisé par le modérateur sur le site
Comment trouver et sélectionner plusieurs mots en même temps
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Après avoir exécuté le code, une boîte de dialogue Kutools for Excel apparaîtra, veuillez entrer les mots clés que vous trouverez et les séparer par des virgules.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, comment cette macro peut-elle être révisée pour prendre plus de mots clés ? J'ai environ 170 mots que j'aimerais trouver et remplacer
Ce commentaire a été minimisé par le modérateur sur le site
Salut JM,
Après avoir exécuté le code, une boîte de dialogue Kutools for Excel apparaîtra, veuillez entrer les mots clés que vous trouverez et les séparer par des virgules.
Ce commentaire a été minimisé par le modérateur sur le site
Salut! Tout d'abord, félicitations pour votre travail : cette macro est très utile et intéressante ! J'aimerais néanmoins que vous m'aidiez pour une chose. Je suis correcteur d'épreuves et j'aimerais que les remplacements soient surlignés en vert ou en rouge. Comment puis-je faire ceci? Existe-t-il une ligne de code que je pourrais utiliser ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, La fonctionnalité de recherche et de remplacement par lots de Kutools for Word peut parfaitement résoudre votre problème, vous pouvez essayer.
Ce commentaire a été minimisé par le modérateur sur le site
Après avoir cliqué sur Remplacer, il passe simplement à Aperçu et ne fait rien d'autre.
Ce commentaire a été minimisé par le modérateur sur le site
Salut Ajs, Tous les mots requis ont été remplacés avec succès après avoir appuyé sur le bouton Remplacer. Il va à l'onglet Aperçu pour vous aider à savoir combien de mots ont été remplacés avec succès. Après cela, fermez la boîte de dialogue.
Ce commentaire a été minimisé par le modérateur sur le site
Et si j'essaie de remplacer des virgules ?
Ce commentaire a été minimisé par le modérateur sur le site
Le code VBA ne peut pas aider à remplacer les virgules. Vous pouvez appliquer Kutools pour y parvenir.
Ce commentaire a été minimisé par le modérateur sur le site
Dans la première instruction (Rechercher et remplacer plusieurs mots en même temps dans Word avec le code VBA), il ne trouve pas les cas où le mot à remplacer tombe au milieu d'un mot (par exemple, .com après un nom de site Web) . Cela peut-il être modifié pour le faire?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le projet, pourriez-vous faire en sorte que nous puissions également remplacer les lettres dans les mots. Par exemple, si je veux changer Dollar en DoLLar, cela ne fonctionne pas.
Ce commentaire a été minimisé par le modérateur sur le site
Chào bạn, có cách nào thay thế rất nhiều cụm từ bằng rất nhiều cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một trong đCeà cụm từ đích được không? rất cam ơn bạn.
Ce commentaire a été minimisé par le modérateur sur le site
Salut Nguyễn Phúc Lâm,
Je vous recommande d'appliquer la fonctionnalité de recherche et de remplacement par lots de Kutools for Word (la deuxième méthode de cet article) pour résoudre ce problème.
Dans la boîte de dialogue Rechercher et remplacer, après avoir créé les deux colonnes dont vous avez besoin, vous pouvez enregistrer les paramètres actuels en tant que scénarios pour une utilisation future.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Ce commentaire a été minimisé par le modérateur sur le site
Cám ơn Crystal, Cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000 .. cụm từ) thì rất khó ểể có thểp thủ công. Vậy có cách nào khác không bạn ? Cam ơn bạn đã trả lời
Ce commentaire a été minimisé par le modérateur sur le site
Salut Nguyễn Phúc Lâm,
Temporairement incapable de traiter ce problème avec le code VBA car il est un peu complexe. Cette fonctionnalité sera prise en compte pour la mise à niveau dans la prochaine version. Désolé pour le dérangement.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL