Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe vind en vervang je meerdere woorden tegelijkertijd in een Word-document?

Word biedt een functie Zoeken en vervangen om alle exemplaren van een woord of zin te vinden en deze tegelijkertijd te vervangen door een nieuw woord. Maar als u verschillende woorden tegelijkertijd wilt vinden en vervangen, kan deze ingebouwde functie niet helpen. In dit artikel hebben we het over een VBA-methode om meerdere verschillende woorden tegelijkertijd in Word-document te vinden en te vervangen.

Zoek en vervang meerdere woorden tegelijkertijd in Word met VBA-code


Zoek en vervang meerdere woorden tegelijkertijd in Word met VBA-code

Ga als volgt te werk om meerdere woorden tegelijkertijd in een Word-document te vinden en te vervangen.

1. Open het Word-document dat u wilt vinden en vervang meerdere woorden tegelijk en druk vervolgens op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > Module. Kopieer vervolgens de VBA-code naar het modulevenster.

VBA-code: zoek en vervang meerdere woorden tegelijkertijd in Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. druk de F5 sleutel om de code uit te voeren.

4. In de eerste Kutools for Word dialoogvenster, voert u de meerdere woorden in die u zult vinden en vervangen in het tekstvak en scheidt u ze met een komma. Klik vervolgens op de OK knop. Zie screenshot:

5. In de seconde Kutools for Word dialoogvenster, voer de nieuwe woorden in die u wilt vervangen (deze woorden moeten ook worden gescheiden door komma's) en klik vervolgens op OK knop.

Let op: In dit geval allemaal “KTE” in dit document zal worden vervangen door "Nieuwe", en “KTO” en “KTW” zal worden vervangen door "Test" en "Af hebben". Wijzig deze naar uw behoeften.



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Adam · 15 days ago
    Any way to make this case sensitive?
  • To post as a guest, your comment is unpublished.
    rishabh jain · 1 months ago
    will this work in office Excel 365
  • To post as a guest, your comment is unpublished.
    jaka1 · 4 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?