Note: The other languages of the website are Google-translated. Back to English

Hoe vind en vervang ik meerdere woorden tegelijk in een Word-document?

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

Zoek en vervang meerdere woorden tegelijkertijd in Word met VBA-code
Vind en vervang eenvoudig meerdere woorden tegelijk in Word met een geweldige functie


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

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

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

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande 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, typ de meerdere woorden die u wilt vinden en vervangen in het tekstvak, scheid ze met een komma en klik vervolgens op de OK knop. Zie screenshot:

5. In de tweede 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 de OK knop.

Opmerking: In dit geval alle "KTE" in dit document wordt vervangen door "Nieuw", en "KTO" en "KTW" zal worden vervangen door "Test" en "Af hebben". Wijzig ze naar uw wensen.


Vind en vervang eenvoudig meerdere woorden tegelijk in Word met een geweldige functie

De Batch zoeken en vervangen kenmerk van Kutools for Word kan helpen om gemakkelijk verschillende teksten in een document of in meerdere documenten tegelijk te vinden en te vervangen.

Neem even de tijd voordat u deze functie toepast download en installeer het eerst.

1. Start de Microsoft Word-applicatie, klik op Koetools Plus > Batch zoeken en vervangen.

2. In de Batch zoeken en vervangen venster, configureer dan als volgt.

  • 2.1 klik op het knop> Bestand toevoegen or Map toevoegen om een ​​of meer documenten toe te voegen waarin u meerdere woorden zult zoeken en vervangen.
  • 2.2 Klik op de Voeg een rij toe knop om de zoek- en vervangvelden in te voegen. Als je drie verschillende teksten tegelijk wilt zoeken en vervangen, maak dan drie rijen aan.
  • 2.3 Voer in elke rij de bestaande woorden in die u wilt vervangen door een nieuwe in het Vind kolom en voer vervolgens de nieuwe woorden in het vervangen kolom.
  • 2.4 Specificeer het Zoektype voor elke rij.
  • 2.5 In het Vinden in kies waar u het zoeken en vervangen wilt toepassen. Het bevat Hoofd document, Voorvoegsel en footer in deze sectie. U kunt er één, twee of allemaal kiezen op basis van uw behoeften.
  • 2.6. Klik op het vervangen knop om de operatie te starten. Zie screenshot:

Vervolgens worden de specifieke woorden tegelijkertijd in geselecteerde documenten vervangen.

Tip: U kunt het resultaat markeren met achtergrondkleur door een bepaalde kleur op te geven in het Markeer kolom voor een rij.

  Als u een gratis proefperiode (60 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Heb je vragen? Stel ze hier. (21)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Toto jsem hledal, jen potřebuji pro hledaný tekst op nějaké formátování. Jak toho dosáhnu?
Deze opmerking is gemaakt door de moderator op de site
werkt dit in Office Excel 365
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om dit hoofdlettergevoelig te maken?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Dit werkt goed met Engelse woorden. Nu ben ik bezig met een document waarin ik Engels naar Gujarati vertaal. Dus wanneer ik dit toepas, (Vind Engelse woorden) en (Vervang door Gujarati-woorden), verandert het, maar het lijkt op "???". Toont niet het Gujarati-woord, maar alleen vraagtekens? Verdere hulp? Alsjeblieft.
Deze opmerking is gemaakt door de moderator op de site
Hallo Shailesh, geconfronteerd met hetzelfde probleem. Heb je er een oplossing voor gevonden. Ben ook aan het uitzoeken hoe ik van Chinees naar Engels kan veranderen.
Deze opmerking is gemaakt door de moderator op de site
Meerdere woorden tegelijk zoeken en selecteren
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Nadat de code is uitgevoerd, verschijnt er een Kutools for Excel-dialoogvenster, voer de trefwoorden in die u zult vinden en scheid ze met komma's.
Deze opmerking is gemaakt door de moderator op de site
Hallo, hoe kan deze macro worden herzien om meer sleutelwoorden op te nemen? Ik heb ongeveer 170 woorden die ik graag zou willen vinden en vervangen
Deze opmerking is gemaakt door de moderator op de site
Hallo JM,
Nadat de code is uitgevoerd, verschijnt er een Kutools for Excel-dialoogvenster, voer de trefwoorden in die u zult vinden en scheid ze met komma's.
Deze opmerking is gemaakt door de moderator op de site
Hoi! Allereerst gefeliciteerd met je werk: deze macro is erg handig en interessant! Toch zou ik graag willen dat je me met één ding helpt. Ik ben een corrector en zou graag willen dat de vervangingen in groene of rode kleur worden gemarkeerd. Hoe kan ik dit doen? Is er een coderegel die ik zou kunnen gebruiken?
Deze opmerking is gemaakt door de moderator op de site
Hallo, De functie Batch zoeken en vervangen van Kutools voor Word kan uw probleem perfect oplossen, u kunt het proberen.
Deze opmerking is gemaakt door de moderator op de site
Nadat hij op Vervangen heeft gedrukt, gaat hij gewoon naar Voorbeeld en doet hij verder niets.
Deze opmerking is gemaakt door de moderator op de site
Hallo Ajs, Alle vereiste woorden zijn met succes in één keer vervangen nadat u op de knop Vervangen hebt gedrukt. Het gaat naar het tabblad Voorbeeld om u te helpen weten hoeveel woorden met succes zijn vervangen. Sluit daarna het dialoogvenster.
Deze opmerking is gemaakt door de moderator op de site
Wat als ik komma's probeer te vervangen?
Deze opmerking is gemaakt door de moderator op de site
De VBA-code kan het niet helpen om komma's te vervangen. U kunt Kutools toepassen om te bereiken.
Deze opmerking is gemaakt door de moderator op de site
In de eerste instructie (Zoek en vervang meerdere woorden tegelijkertijd in woord met VBA-code), worden geen gevallen gevonden waarin het te vervangen woord in het midden van een woord valt (bijvoorbeeld .com na een websitenaam) . Kan dit worden aangepast om dit te doen?
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het project, zou je het zo kunnen maken dat we ook letters in woorden kunnen vervangen. Als ik bijvoorbeeld Dollar als DoLLar wil veranderen, werkt het niet.
Deze opmerking is gemaakt door de moderator op de site
Lees verder cụm từ ích được không? rất cam in bạn.
Deze opmerking is gemaakt door de moderator op de site
Hallo Nguyễn Phúc Lâm,
Ik raad je aan om de functie Batch zoeken en vervangen van Kutools for Word (de tweede methode in dit bericht) toe te passen om dit probleem op te lossen.
In het dialoogvenster Zoeken en vervangen kunt u, nadat u de twee benodigde kolommen hebt gemaakt, de huidige instellingen opslaan als een scenario voor toekomstig gebruik.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Deze opmerking is gemaakt door de moderator op de site
Cám in Crystal, cách này có th dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000..) cụm tór Vy có cách nào khác không bạn? Cam in bạn đã trả lời
Deze opmerking is gemaakt door de moderator op de site
Hallo Nguyễn Phúc Lâm,
Tijdelijk niet in staat om dit probleem met VBA-code aan te pakken, omdat het een beetje ingewikkeld is. Deze functie komt in aanmerking voor een upgrade in de volgende release. Excuses voor het ongemak.
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL