Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe te zoeken en vervangen in meerdere bestanden in Word?

Author Amanda Li Last modified

Als u tientallen Word-bestanden heeft die dezelfde inhoud bevatten (zoals kopteksten, voetteksten of specifieke tekst), en u moet deze inhoud in alle documenten vervangen, kan dit handmatig vervelend zijn. Deze handleiding introduceert twee methoden om snel dezelfde of verschillende inhoud in meerdere Word-documenten tegelijk te vervangen.

Zoek en vervang tekst in meerdere Word-documenten tegelijk met VBA-code
Vind en vervang eenvoudig verschillende teksten in meerdere documenten tegelijk met Kutools voor Word

Zoek en vervang tekst in meerdere Word-documenten tegelijk met VBA-code

Deze methode laat zien hoe u VBA-code kunt gebruiken om inhoud in meerdere documenten tegelijk te zoeken en te vervangen.

  1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
  2. Klik op "Invoegen" > "Module", en plak de volgende code: 
    Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr
            .Replacement.Text = xReplaceStr
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub
  3. Druk op F5 om de code uit te voeren.
  4. Selecteer in het Blader-venster de documenten die u wilt verwerken en klik op "OK".
    Browse window
  5. Voer in het invoerveld "Zoeken naar" het woord of de zin in dat u wilt vinden en klik op "OK".
    Find what box
  6. Voer in het invoerveld "Vervangen door" de vervangende tekst in en klik op "OK".
    Replace with box
  7. Klik op "OK" in het laatste dialoogvenster van Microsoft Word.
    Confirmation dialog

Alle gevallen van de opgegeven tekst in de geselecteerde Word-bestanden worden tegelijk vervangen.

Vind en vervang eenvoudig verschillende teksten in meerdere documenten tegelijk met Kutools voor Word

De functie "Batch Zoeken en Vervangen" in Kutools voor Word stelt u in staat om meerdere tekstitems in verschillende Word-documenten tegelijk te zoeken en te vervangen.

Kutools voor Word,uitgerust met AI 🤖, biedt meer dan 100 handige functies om uw taken te vereenvoudigen.
  1. Klik op "Kutools" > "Batch Vervanging".
    Batch Replacement button
  2. Configureer in het venster Batch Zoeken en Vervangen de instellingen:
    1. Klik op de knop "Rij toevoegen".
    2. In de nieuwe rij:
      1. Voer de tekst die u wilt zoeken in onder "Zoeken".
      2. Voer de vervangende tekst in onder "Vervangen".
      3. Geef eventueel een zoektype, locatie waar gezocht en vervangen moet worden, markeringskleur en andere opties op zoals nodig in de respectieve kolommen.
    3. Klik op de Add button knop in de sectie "Bestandstype" om Word-bestanden aan de batch toe te voegen.
    4. Klik op "Vervangen" of "Zoeken".
      Tip: Herhaal stappen 1) en 2) om meer zoek- en vervangregels toe te voegen.
      Batch Find and Replace configuration
  3. Sluit het venster Batch Zoeken en Vervangen wanneer u klaar bent.

Opmerkingen:

  • Als u op "Zoeken" klikt, verschijnen de overeenkomsten onder het tabblad "Voorbeeldresultaat". Om vervangingen later toe te passen, ga terug naar het tabblad "Zoeken en Vervangen".
  • Als u op "Vervangen" klikt, worden alle overeenkomsten onmiddellijk vervangen en weergegeven onder "Voorbeeldresultaat".
  • Als er markeringskleuren zijn opgegeven, worden de vervangingen in uw Word-documenten dienovereenkomstig ingekleurd.

Voor meer informatie over de functie "Batch Zoeken en Vervangen", bekijk de handleidingpagina.

Kutools voor Word is de ultieme Word-add-in die uw werk stroomlijnt en uw vaardigheden in documentverwerking verbetert. Haal het nu!

Beste Office-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools