Hoe Zoeken en Vervangen u meerdere teksten in Word met Excel?
AuteurXiaoyang•Wijzigingsdatum
In Microsoft Word is de functie Zoeken en Vervangen een efficiënte manier om snel specifieke tekst te vinden en te vervangen. Wanneer u echter meerdere verschillende termen moet vervangen, kan het handmatig invoeren van elk item tijdrovend zijn.
Om dit proces te stroomlijnen, kunt u Excel gebruiken om eenvoudig een lijst samen te stellen van de teksten die u wilt zoeken en vervangen, en de taak automatiseren met eenvoudige VBA-code. Deze handleiding begeleidt u stap voor stap bij het gebruik van Excel en VBA om meerdere teksten binnen één Word-document te zoeken en vervangen. Daarnaast laat ik u zien hoe u dit uitbreidt naar meerdere documenten en introduceer ik een krachtige Kutools-functie voor batchtekstvervanging.
Zoeken en Vervangen meerdere teksten in één Word-document vanuit Excel met VBA-code
Als u in slechts één Word-bestand meerdere teksten tegelijk wilt zoeken en vervangen, helpt de volgende VBA-code u daarbij.
1. Maak in het Excel-werkblad een kolom met de teksten die u wilt zoeken en vervangen, en een tweede kolom met de vervangende teksten, zoals in de onderstaande afbeelding. Druk vervolgens tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik daarna op Invoegen > Module en plak de onderstaande VBA-code in het venster.
VBA-code: Zoeken en Vervangen 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 u de code hebt geplakt, klikt u in het venster Microsoft Visual Basic for Applications nog steeds op Extra > Referenties, zie afbeelding:
4. Selecteer in het venster Referenties – VBAProject dat verschijnt de optie Microsoft Word 16,0 Object Library in het lijstvak, zie afbeelding:
5. Klik op de knop OK om het dialoogvenster te sluiten. Druk nu op de toets F5 om deze code uit te voeren. Selecteer in het venster Bladeren dat verschijnt het Word-bestand waarin u de teksten wilt vervangen, zie afbeelding:
6. Klik vervolgens op OK. Selecteer in het volgende dialoogvenster met de toets Ctrl de cellen voor Oorspronkelijke tekst en Nieuwe tekst die u wilt gebruiken, zie afbeelding:
7. Klik daarna op de knop OK. De teksten worden nu gevonden en vervangen door de nieuwe tekst in uw opgegeven document, en het bestand wordt direct geopend. Sla het bestand op om uw wijzigingen te behouden.
Zoeken en Vervangen meerdere teksten in meerdere Word-documenten vanuit Excel met VBA-code
Ik heb ook een VBA-code gemaakt om u te helpen meerdere teksten in meerdere Word-documenten te zoeken en te vervangen. Volg deze stappen:
1. Open het Excel-bestand met twee kolommen: één met de waarden die u wilt vervangen en één met de waarden waarmee u ze wilt vervangen, zoals in de onderstaande afbeelding. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen>Moduleen kopieer en plak de onderstaande VBA-code in het venster.
VBA-code: Zoeken en Vervangen 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. Blijf in het venster Microsoft Visual Basic for Applications en klik op Extra > Referenties. Selecteer in het dialoogvenster Referenties – VBAProject de opties Microsoft Word 16,0 Object Library en Microsoft Scripting Runtime in het lijstvak, zie afbeelding:
4. Nadat u de twee opties hebt aangevinkt, klikt u op OK om het dialoogvenster te sluiten. Druk vervolgens op de toets F5 om deze code uit te voeren. Kies in het venster Bladeren dat wordt geopend een map met de Word-documenten waarop u Zoeken en Vervangen wilt uitvoeren. Zie afbeelding:
5. Klik op de knop OK. Selecteer in het dialoogvenster dat verschijnt, met behulp van de toets Ctrl, afzonderlijk de kolommen voor Oorspronkelijke tekst en Nieuwe tekst die u wilt gebruiken, zie afbeelding:
6. Klik ten slotte op OK. De oorspronkelijke teksten worden vervangen door de nieuwe versies in deze bestanden. Na voltooiing verschijnt een dialoogvenster zoals in de onderstaande afbeelding:
7. Klik op OK om het dialoogvenster te sluiten. U kunt nu de bestanden openen om de resultaten te controleren.
Zoeken en Vervangen meerdere teksten in meerdere Word-documenten met een krachtige functie
In dit gedeelte leg ik uit hoe u tekst in meerdere Word-documenten kunt batch zoeken en vervangen met behulp van Word zelf, in plaats van Excel. Met de krachtige functie Kutools voor Word kunt u efficiënt specifieke teksten zoeken en deze vervangen door nieuwe tekst in de hoofdtekst, kop- en voetteksten, opmerkingen en meer — en desgewenst de resultaten markeren.
Kutools voor Word
Kutools voor Word helpt u alledaagse documenttaken sneller aan te pakken met praktische tools die direct in Microsoft Word zijn ingebouwd – zonder coderen en zonder ingewikkelde installatie.
AI-schrijven, -verfijnen, -vertalen en -samenvatten
1. Open één Word-bestand en klik vervolgens op KUTOOLS PLUS > Batch Zoeken en Vervangen, zie afbeelding:
2. Voer in het geopende dialoogvenster Batch Zoeken en Vervangen de volgende handelingen uit:
Klik op de knop Toevoegenom de Word-bestanden toe te voegen waarin u teksten wilt Zoeken en Vervangen;
Klik in het linkerdeelvenster op Rij toevoegenbovenaan de Lint;
Voer in het ingevoegde veld de oorspronkelijke tekst en de nieuwe tekst in, respectievelijk in de kolommen Zoeken en Vervangen, voor de termen die u wilt zoeken en vervangen. U kunt er ook voor kiezen om een kleur op te geven waarmee de vervangen teksten worden gemarkeerd.
3. Nadat u de zoekcriteria hebt ingesteld, klikt u op de knop Vervangen om naar het tabblad Voorbeeldresultaat te gaan en de Zoeken en Vervangen-resultaten te bekijken. Zie afbeelding:
4. Klik vervolgens op de knop Sluiten. Er verschijnt een melding waarin u wordt gevraagd of u dit scenario wilt opslaan. Klik op Ja om het op te slaan, of op Nee om het te negeren, zie afbeelding:
Tips: Met deze functie kunt u ook de volgende bewerkingen uitvoeren:
Zoeken en Vervangen speciale tekens in meerdere Word-documenten;
Zoeken en Vervangen meerdere tekenreeksen met specifieke opmaak in meerdere Word-documenten;
Zoek en vervang meerdere tekenreeksen in meerdere TXT-, HTM- of HTML-bestanden.
Doe meer in minder tijd met AI-versterkt Kutools voor Word
Kutools voor Word is niet zomaar een verzameling tools – het is een slimme oplossing die uw productiviteit flink verhoogt. Dankzij AI-gestuurde functionaliteiten en de meest essentiële functies bereikt u meer in minder tijd:
Combineer de inhoud direct, herschrijf deze, stel samen en vertaal.
Laat uw tekst in real time corrigeren met suggesties voor grammatica, leestekens en stijl terwijl u typt.
Herschrijf en vertaal de inhoud zonder de lay-out, stijl of structuur te wijzigen.
Vertaal uw inhoud moeiteloos naar meer dan 40 talen en vergroot daarmee uw wereldwijde bereik.
Ontvang directe hulp en slimme inzichten op basis van de inhoud van uw huidige document.
Vraag hoe u een taak kunt uitvoeren – bijvoorbeeld het verwijderen van een sectie-einde – en de AI begeleidt u of voert deze direct voor u uit.
Verwijder gevoelige of vertrouwelijke informatie in slechts enkele seconden voor gegarandeerde privacy.
Alle tools werken naadloos in Word en zijn altijd binnen handbereik.
Stel moeiteloos documenten samen, verfijn, vertaal, vat samen en beveilig ze.
Verbeter grammatica, duidelijkheid en toon terwijl u in realtime typt.
Herschrijf en vertaal de inhoud zonder wijzigingen in lay-out of opmaak.
Vraag hoe u een taak kunt uitvoeren – bijvoorbeeld het verwijderen van een sectie-einde – en de AI begeleidt u of voert deze direct voor u uit.
Alle tools werken naadloos in Word en zijn altijd binnen handbereik.
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
