Hoe zoek en vervang ik meerdere bestanden in Word?
Als u enkele tientallen woordbestanden heeft die dezelfde inhoud bevatten (zoals koptekst, voettekst, enkele speciale woorden of cijfers), en u moet dezelfde inhoud in die documenten in Word vervangen. Hoe zou het voor u gemakkelijker zijn om het snel voor elkaar te krijgen? U kunt die bestanden natuurlijk een voor een openen om dezelfde inhoud te vervangen, maar het zal tijdrovend en lastig zijn. Deze tutorial laat je een lastige manier zien om dezelfde inhoud in meerdere documenten in Word tegelijk te vervangen.
Zoek en vervang teksten in meerdere woorddocumenten tegelijkertijd met VBA-code
Vind en vervang eenvoudig verschillende teksten in meerdere documenten tegelijk met Kutools voor Word
Zoek en vervang teksten in meerdere woorddocumenten tegelijkertijd met VBA-code
1. druk op anders + F11 om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de volgende VBA-code naar het modulevenster.
VBA-code: zoeken en vervangen van dezelfde inhoud in meerdere documenten tegelijk
Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
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 'Find What
.Replacement.Text = xReplaceStr 'Replace With
.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
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub3. druk de F5 sleutel om de code uit te voeren.
4. In de opening Blader zoek en selecteer de documenten die u zult vinden en vervang de tekst erin, en klik vervolgens op het OK knop. Zie screenshot:
5. In de eerste Kutools for Word dialoogvenster, voert u de tekst die u in documenten aantreft in het Zoeken naar vak en klik vervolgens op het OK knop.
6. In de tweede Kutools for Word dialoogvenster, voer de tekst in die u wilt vervangen en klik op het OK knop.
8. Klik op het OK knop in de volgende Microsoft Word dialoogvenster om het zoeken en vervangen te voltooien.
In dit geval worden alle woorden "Word" in geselecteerde documenten tegelijkertijd vervangen door "Excel".
Vind en vervang eenvoudig verschillende teksten in meerdere documenten tegelijk met Kutools voor Word
Beveel hier het Batch zoeken en vervangen kenmerk van Kutools for Word. Met deze functie kunt u eenvoudig verschillende teksten in meerdere Word-documenten tegelijk zoeken en vervangen. Laten we eens kijken hoe we deze functie kunnen toepassen om teksten in documenten te zoeken en te vervangen.
Kutools for Word : met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen.
1. Klik alstublieft Koetools Plus > Batch zoeken en vervangen om de functie in te schakelen.
2. In de Batch zoeken en vervangen dialoogvenster, configureer dan als volgt.
- 2.1) Klik op de Voeg rij toe knop onder de Zoeken en vervangen tab;
- 2.2) In de gemaakte rijvelden:
B. Typ de tekst die u wilt vervangen in het tekstvak in het vervangen kolom;
C. Specificeer een zoektype, waar u de tekst kunt vinden en een kleur om de tekst naar wens te markeren. In dit geval selecteer ik Volledige woordafstemming, Hoofd document en een bepaalde kleur uit de Zoektype, Vinden in en Markeer kolommen;
- 2.3) Herhaal stap 2.1 en 2.2 om meer teksten toe te voegen die u zult vinden en vervangen;
- 2.4) Klik op de
knop in de Bestandstype sectie om de Word-documenten toe te voegen waarin u teksten zult vinden en vervangen; - 2.5) Klik op de vervangen or VIND DE PLEK DIE PERFECT VOOR JOU IS knop. Zie screenshot:
3. Sluit de Batch zoeken en vervangen dialoogvenster
Voor meer informatie over deze functie, gelieve Klik hier....
Als u een gratis proefversie van dit hulpprogramma wilt, gaat u naar gratis download de software eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...
