Hoe vind en vervang ik meerdere woorden tegelijk in een Word-document?

Word biedt een functie Zoeken en vervangen om alle instanties van een woord of zin te zoeken en deze tegelijkertijd door een nieuw woord te vervangen. Maar als u verschillende woorden tegelijkertijd wilt zoeken en vervangen, kan deze ingebouwde functie niet helpen. In dit artikel hebben we het over een VBA-methode om meerdere verschillende woorden tegelijkertijd in een Word-document te zoeken en te vervangen.

Zoek en vervang meerdere woorden tegelijkertijd in Word met VBA-code
Vind en vervang eenvoudig meerdere woorden tegelijk in Word met een geweldige functie

Zoek en vervang meerdere woorden tegelijkertijd in Word met VBA-code

Ga als volgt te werk om meerdere woorden tegelijk in een Word-document te zoeken en te vervangen.

1. Open het Word-document dat u wilt zoeken en vervang meerdere woorden tegelijkertijd en druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.

VBA-code: zoek en vervang meerdere woorden tegelijkertijd in 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. druk de F5 sleutel om de code uit te voeren.

4. In de eerste Kutools for Word dialoogvenster, typ de meerdere woorden die u wilt vinden en vervangen in het tekstvak, scheid ze met een komma en klik vervolgens op de OK knop. Zie screenshot:

5. In de tweede Kutools for Word dialoogvenster, voer de nieuwe woorden in die u wilt vervangen (deze woorden moeten ook worden gescheiden door komma's) en klik vervolgens op de OK knop.

Opmerking: In dit geval alle "KTE" in dit document wordt vervangen door "Nieuw", en "KTO" en "KTW" zal worden vervangen door "Test" en "Af hebben". Wijzig ze naar uw wensen.

Vind en vervang eenvoudig meerdere woorden tegelijk in Word met een geweldige functie

1. Start de Microsoft Word-applicatie, klik op Kutools Plus > Batch zoeken en vervangen.

2. In de Batch zoeken en vervangen venster, configureer dan als volgt.

• 2.1 klik op het knop> Bestand toevoegen or Map toevoegen om een ​​of meer documenten toe te voegen waarin u meerdere woorden zult zoeken en vervangen.
  
• 2.2 Klik op de Voeg een rij toe knop om de zoek- en vervangvelden in te voegen. Als je drie verschillende teksten tegelijk wilt zoeken en vervangen, maak dan drie rijen aan.
• 2.3 Voer in elke rij de bestaande woorden in die u wilt vervangen door een nieuwe in het Vind kolom en voer vervolgens de nieuwe woorden in het vervangen kolom.
• 2.4 Specificeer het Zoektype voor elke rij.
• 2.5 In het Vinden in kies waar u het zoeken en vervangen wilt toepassen. Het bevat Hoofd document, Voorvoegsel en footer in deze sectie. U kunt er één, twee of allemaal kiezen op basis van uw behoeften.
• 2.6. Klik op het vervangen knop om de operatie te starten. Zie screenshot:

Vervolgens worden de specifieke woorden tegelijkertijd in geselecteerde documenten vervangen.

Tip: U kunt het resultaat markeren met achtergrondkleur door een bepaalde kleur op te geven in het Markeer kolom voor een rij.

  Als u een gratis proefperiode (60 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Aanbevolen Word-productiviteitstools