Hur hittar jag och ersätter flera ord samtidigt i ett Word-dokument?

Word erbjuder en Sök och ersätt-funktion för att hitta alla instanser av ett ord eller en fras och ersätta dem med ett nytt ord samtidigt. Men om du vill hitta och ersätta olika ord samtidigt kan den här inbyggnadsfunktionen inte hjälpa. I den här artikeln pratar vi om en VBA-metod för att hitta och ersätta flera olika ord samtidigt i Word-dokument.

Hitta och ersätt flera ord samtidigt i Word med VBA-kod
Hitta och ersätt enkelt flera ord samtidigt i Word med en fantastisk funktion

Hitta och ersätt flera ord samtidigt i Word med VBA-kod

Gör så här för att hitta och ersätta flera ord samtidigt i ett Word-dokument.

1. Öppna Word-dokumentet du vill hitta och ersätt flera ord samtidigt och tryck sedan på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul. Kopiera sedan VBA-koden nedan till modulfönstret.

VBA-kod: Hitta och ersätt flera ord samtidigt i 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. tryck på F5 för att köra koden.

4. I den första Kutools för Word dialogrutan, ange flera ord som du hittar och ersätt i textrutan och separera dem med komma och klicka sedan på OK knapp. Se skärmdump:

5. På sekunden Kutools för Word dialogrutan, ange de nya orden du ska ersätta med (dessa ord måste också separeras med kommatecken) och klicka sedan på OK knapp.

Notera: I det här fallet, alla "KTE" i detta dokument kommer att ersättas med "Ny", och "KTO" och "KTW" kommer att ersättas med "Testa" och "Avsluta". Ändra dem efter dina behov.

Hitta och ersätt enkelt flera ord samtidigt i Word med en fantastisk funktion

1. Starta Microsoft Word-applikationen, klicka på Kutools Plus > Batch Hitta och ersätt.

2. I Batch Hitta och ersätt konfigurera på följande sätt.

• 2.1 klicka på knapp> Lägg till fil or lägg till mapp för att lägga till ett eller flera dokument där du hittar och ersätter flera ord.
  
• 2.2 Klicka på Lägg till rad -knappen för att infoga sök- och ersättningsfälten. Skapa tre rader om du vill hitta och ersätta tre olika texter samtidigt.
• 2.3 I varje rad anger du de befintliga orden som du kommer att ersätta med en ny i hitta och ange sedan de nya orden i ersätta kolonn.
• 2.4 Ange Söktyp för varje rad.
• 2.5 I Hitta i välj var du ska söka och ersätta. Det inkluderar Huvuddokument, Sidhuvud och Sidfot i denna avdelning. Du kan välja en av dem, två av dem eller alla baserat på dina behov.
• 2.6. Klicka på ersätta för att starta operationen. Se skärmdump:

Sedan ersätts de specifika orden samtidigt i valda dokument.

Dricks: Du kan markera resultatet med bakgrundsfärg genom att ange viss färg i Markera kolumn för en rad.

  Om du vill ha en gratis provperiod (60 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

✏ Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

➕ Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀

Gratis nedladdning     Läs mer     Köp nu