Hoe vind en vervang je meerdere teksten in Word met behulp van Excel?

In Microsoft Word is de functie Zoeken en Vervangen een efficiënte manier om snel specifieke tekst te zoeken en te vervangen. Echter, wanneer je meerdere verschillende termen moet vervangen, kan het handmatig invoeren van elk ervan tijdrovend zijn.

Om dit proces te stroomlijnen, kun je Excel gebruiken om een lijst te maken van de teksten die je wilt zoeken en vervangen, en vervolgens de taak automatiseren met een eenvoudige VBA-code. Deze handleiding leidt je door het gebruik van Excel en VBA om meerdere teksten te zoeken en te vervangen in één Word-document. Daarnaast zal ik je laten zien hoe je dit kunt uitbreiden naar meerdere documenten en een krachtige Kutools-functie voor batchtekstvervanging introduceren.

Zoek en vervang meerdere teksten in één Word-document vanuit Excel met VBA-code

Zoek en vervang meerdere teksten in meerdere Word-documenten vanuit Excel met VBA-code

Zoek en vervang meerdere teksten in meerdere Word-documenten met een krachtige functie

Zoek en vervang meerdere teksten in één Word-document vanuit Excel met VBA-code

Als je enkele teksten wilt zoeken en vervangen in slechts één Word-bestand, kan de volgende VBA-code je helpen.

1. Maak in het Excel-werkblad een kolom met de teksten die je wilt zoeken en vervangen, en een andere kolom met de teksten waarmee je ze wilt vervangen, zoals in onderstaande schermafbeelding te zien is. Druk vervolgens gelijktijdig op Alt+ F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik vervolgens op Invoegen > Module, kopieer en plak de onderstaande VBA-code in het venster.

VBA-code: Zoek en vervang meerdere teksten in één Word-bestand

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. Nadat je de code hebt geplakt, nog steeds in het Microsoft Visual Basic for Applications-venster, klik op Tools > References, zie onderstaande schermafbeelding:

4. Selecteer in het pop-up venster References – VBAProject de Microsoft Word 16.0 Object Library uit de lijst, zie onderstaande schermafbeelding:

5. Klik op OK om het dialoogvenster te sluiten, en druk nu op de F5-toets om deze code uit te voeren. Selecteer in het pop-up venster Bladeren het Word-bestand waarin je de teksten wilt vervangen, zie onderstaande schermafbeelding:

6. Klik vervolgens op OK, selecteer in het volgende dialoogvenster met de Ctrl-toets de originele tekst en nieuwe tekstcellen apart die je wilt gebruiken, zie onderstaande schermafbeelding:

7. Klik vervolgens op OK, nu worden de teksten gevonden en vervangen door de nieuwe teksten in het gespecificeerde document, en het bestand wordt ook geopend. Je moet het opslaan om de wijzigingen te behouden.

Zoek en vervang meerdere teksten in meerdere Word-documenten vanuit Excel met VBA-code

Ik heb ook een VBA-code gemaakt om je te helpen bij het zoeken en vervangen van meerdere teksten in meerdere Word-documenten. Volg deze stappen:

1. Open het Excel-bestand dat twee kolommen bevat met waarden om te vervangen en waarmee te vervangen, zoals in onderstaande schermafbeelding te zien is, en druk vervolgens gelijktijdig op Alt+ F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik vervolgens op Invoegen > Module, kopieer en plak de onderstaande VBA-code in het venster.

VBA-code: Zoek en vervang meerdere teksten in meerdere Word-bestanden

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. Nog steeds in het Microsoft Visual Basic for Applications-venster, klik op Tools > References, selecteer in het venster References – VBAProject de opties Microsoft Word 16.0 Object Library en Microsoft Scripting Runtime uit de lijst, zie onderstaande schermafbeelding:

4. Nadat je de twee opties hebt aangevinkt, klik op OK om het dialoogvenster te sluiten, en druk vervolgens op de F5-toets om deze code uit te voeren. Selecteer in het venster Bladeren een map met de Word-documenten waarin je de zoek- en vervangactie wilt uitvoeren, zie onderstaande schermafbeelding:

5. Klik op OK, selecteer in het pop-up dialoogvenster met de Ctrl-toets de originele tekst en nieuwe tekstkolommen apart die je wilt gebruiken, zie onderstaande schermafbeelding:

6. Klik ten slotte op OK, en de originele teksten worden vervangen door de nieuwe teksten in al deze bestanden. Na voltooiing verschijnt er een dialoogvenster zoals in onderstaande schermafbeelding te zien is:

7. Klik op OK om het dialoogvenster te sluiten. Je kunt naar de bestanden gaan om de geconverteerde resultaten te controleren.

Zoek en vervang meerdere teksten in meerdere Word-documenten met een krachtige functie

In deze sectie leg ik uit hoe je batch-zoek- en vervangacties kunt uitvoeren in meerdere Word-documenten met behulp van Word zelf, in plaats van Excel. Door gebruik te maken van de krachtige Kutools voor Word, kun je efficiënt specifieke teksten zoeken en vervangen door nieuwe in de hoofdtekst, kopteksten, voetteksten, opmerkingen en meer, terwijl je ook de resultaten kunt markeren indien nodig.

1. Open een Word-bestand, en klik vervolgens op Kutools Plus > Batch Zoeken en Vervangen, zie onderstaande schermafbeelding:

2. Voer in het geopende Batch Zoeken en Vervangen-dialoogvenster de volgende acties uit:

• Klik op de knop Toevoegen om de Word-bestanden toe te voegen waarin je teksten wilt zoeken en vervangen;
• Klik in het linkerpaneel op Rij toevoegen vanaf de bovenste werkbalk;
• Voer in het ingevoegde veld de originele tekst en nieuwe tekst in de Zoeken en Vervangen-kolommen in die je wilt zoeken en vervangen. Ook kun je een kleur specificeren om de vervangen teksten te markeren, indien nodig.

3. Nadat je de zoekcriteria hebt gemaakt, klik op de knop Vervangen om naar het tabblad Voorbeeldresultaat te gaan en de zoek- en vervangresultaten te bekijken. Zie onderstaande schermafbeelding:

4. Klik vervolgens op Sluiten, en er verschijnt een promptvenster om je eraan te herinneren of je dit scenario wilt opslaan. Klik op Ja om het op te slaan, en op Nee om het te negeren, zie onderstaande schermafbeelding:

Doe meer in minder tijd met AI-verbeterde Kutools voor Word

Kutools voor Word is niet zomaar een set tools - het is een slimme oplossing ontworpen om uw productiviteit te verhogen. Met AI-aangedreven mogelijkheden en de meest essentiële functies helpt Kutools u om meer te bereiken in minder tijd:

• Samenvatten, herschrijven, componeren en vertalen van inhoud in een oogwenk.
• Tekst in real-time proeflezen met suggesties voor grammatica, leestekens en stijl terwijl u schrijft.
• Inhoud herformuleren en vertalen zonder dat de lay-out, stijl of structuur wordt aangepast.
• Vertaal uw inhoud eenvoudig in meer dan 40 talen en breid uw wereldwijde bereik uit.
• Ontvang directe hulp en intelligente inzichten gebaseerd op de inhoud van uw huidige document.
• Vraag hoe u een taak kunt voltooien - zoals het verwijderen van sectie-einden - en de AI zal u begeleiden of het voor u doen.
• Bewerk gevoelige of vertrouwelijke informatie binnen enkele seconden om volledige privacy te waarborgen.
• Alle tools werken naadloos binnen Word en zijn altijd binnen handbereik.

• Maak, verfijn, vertaal, samenvatten en beveilig documenten moeiteloos.
• Verbeter grammatica, duidelijkheid en toon terwijl u in real-time schrijft.
• Herschrijf en vertaal inhoud zonder wijzigingen in lay-out of opmaak.
• Vraag hoe u een taak kunt voltooien - zoals het verwijderen van sectie-einden - en de AI zal u begeleiden of het voor u doen.
• Alle tools werken naadloos binnen Word en zijn altijd binnen handbereik.

Meer informatie over Kutools voor Word Nu downloaden