Hoe zoekt en vervangt u tekst in meerdere Word-bestanden tegelijk?

AuteurAmanda Li Wijzigingsdatum2025-04-14

Als u tientallen Word-bestanden hebt met identieke inhoud – zoals kop- of voetteksten of een specifieke tekstregel – en deze in alle documenten moet aanpassen, is handmatig werken tijdrovend. Deze handleiding beschrijft twee efficiënte methoden om dezelfde of verschillende inhoud tegelijkertijd in meerdere Word-documenten te vervangen.

Zoeken en Vervangen-teksten tegelijkertijd in meerdere Word-documenten met VBA-code
Vervang eenvoudig verschillende teksten tegelijkertijd in meerdere documenten met Kutools voor Word

Zoeken en Vervangen-teksten tegelijkertijd in meerdere Word-documenten met VBA-code

Deze methode laat zien hoe u met VBA-code in één keer inhoud kunt zoeken en vervangen in meerdere documenten.

Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

Klik op "Invoegen" > „Module" en plak vervolgens 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

Druk op F5 om de code uit te voeren.
Selecteer in het bladervenster de documenten die u wilt verwerken en klik op ‘OK’.
Typ het woord of de zin die u wilt zoeken in het invoervak ‘Zoeken naar’ en klik op ‘OK’.
Typ de gewenste vervangende tekst in het invoervak 'Vervangen door' en klik op 'OK'.
Klik op 'OK' in het laatste Microsoft Word-dialoogvenster.

Alle exemplaren van de opgegeven tekst in de geselecteerde Word-bestanden worden tegelijkertijd vervangen.

Vervang eenvoudig verschillende teksten tegelijkertijd in meerdere documenten met Kutools voor Word

Met de functie „Batch Zoeken en Vervangen" in Kutools for Word kunt u meerdere teksten tegelijkertijd zoeken en vervangen in diverse Word-documenten.

Klik op 'Kutools' > 'Batchvervanging'.
Configureer de instellingen in het dialoogvenster Batch Zoeken en Vervangen:
1. Klik op de knop ‘Rij toevoegen’.
2. In de nieuwe rij:
  1. Voer de tekst die u wilt zoeken in bij 'Zoeken'.
  2. Voer de vervangende tekst in bij 'Vervangen'.
  3. Geef desgewenst het zoektype, de locatie voor Zoeken en Vervangen, de markeerkleur en andere opties op in de bijbehorende kolommen.
3. Klik op de -knop in het gedeelte „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.
Sluit het dialoogvenster Batch Zoeken en Vervangen zodra u klaar bent.

Opmerkingen:

Klik op ‘Zoeken’ om de overeenkomsten te zien onder het tabblad ‘Voorbeeldresultaat’. Schakel daarna terug naar het tabblad ‘Zoeken en Vervangen’ om vervangingen toe te passen.
Als u op 'Vervangen' klikt, worden alle overeenkomsten direct vervangen en weergegeven onder ‘Voorbeeldresultaat’.
Wanneer u markeerkleuren hebt opgegeven, worden de vervangingen in uw Word-documenten automatisch in die kleuren weergegeven.

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

Wilt u soortgelijke taken in Word sneller uitvoeren? Probeer Kutools voor Word en vereenvoudig uw dagelijkse werk!

Downloaden Meer informatie

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Gratis downloaden Nu kopen Meer informatie

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

Gratis downloaden Nu kopen Meer informatie

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

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

⬇️ Nu downloaden 🎁 Het volledige pakket kopen 📖 Meer informatie

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

🤖KUTOOLS AI-functies:AI Assistent/Realtime Assistent/Super Polish/Super Vertalen/AI Redactie/AI Proeflezen
📘Documentbeheersing:Pagina's splitsen/Documenten samenvoegen/Batchconversie naar PDF
✏Inhoudsbewerking:Batch Zoeken en Vervangen/Alle afbeeldingen herschalen
🧹Moeiteloos opschonen:Overbodige spaties verwijderen/Sectie-einde verwijderen
➕Creatieve invoegingen:Duizendtalscheidingstekens invoegen/Selectievakje invoegen/QR-code maken
🌍Ondersteunt 40+ talen: Kutools spreekt uw taal – met ondersteuning voor meer dan 40 talen!

Gratis downloaden Nu kopen Meer informatie over Kutools