Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 occurrences d'un mot ou d'une phrase 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


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 remplacez plusieurs mots en même temps, puis appuyez sur la touche. 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 ci-dessous dans la fenêtre du module.

Code VBA: rechercher et remplacer 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. En premier Kutools for Word Dans la boîte de dialogue, entrez les mots multiples que vous allez trouver et remplacer dans la zone de texte, puis séparez-les par une virgule, puis cliquez sur le bouton. OK bouton. Voir la capture d'écran:

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

Veuillez noter que : Dans ce cas, tous "KTE" dans ce document sera remplacé par "Nouveau", et "KTO" et "KTW" sera remplacé par "Tester" et "Terminer". S'il vous plaît changez-les selon vos besoins.



Outils de productivité Word recommandés

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

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Shailesh Pateliya · 1 months ago
    Hi, This works well with English Words. Now I am doing a document where I translate English to Gujarati. So, when I apply this, (Find English Words) and (Replace with Gujarati words), it does change but it appears like "???". Doesn't show the Gujarati word but just question marks? Any further help? Please.
  • To post as a guest, your comment is unpublished.
    Adam · 2 months ago
    Any way to make this case sensitive?
  • To post as a guest, your comment is unpublished.
    rishabh jain · 3 months ago
    will this work in office Excel 365
  • To post as a guest, your comment is unpublished.
    jaka1 · 6 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?