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

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

Du har nu möjlighet Batch Hitta och ersätt egenskap av Kutools för Word kan hjälpa till att enkelt hitta och ersätta olika texter i ett dokument eller över flera dokument samtidigt.

Innan du tillämpar den här funktionen, ta några minuter till ladda ner och installera det först.

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.


Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (17)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
jaka1
Denna kommentar minimerades av moderatoren på webbplatsen
kommer detta att fungera i Office Excel 365
rishabh jain
Denna kommentar minimerades av moderatoren på webbplatsen
Något sätt att göra detta skiftlägeskänsligt?
Adam
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, detta fungerar bra med engelska ord. Nu håller jag på att göra ett dokument där jag översätter engelska till Gujarati. Så när jag tillämpar detta, (Find English Words) och (Ersätt med Gujarati-ord), ändras det men det ser ut som "???". Visar inte ordet gujarati utan bara frågetecken? Någon ytterligare hjälp? Snälla du.
Shailesh Pateliya
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Shailesh, står inför samma problem. Hittade du en lösning på det. Jag försöker också komma på hur man byter från kinesiska till engelska.
</div>
Kirill
Denna kommentar minimerades av moderatoren på webbplatsen
Hur man hittar och väljer flera ord samtidigt
Ranjit Jagtap
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Efter att ha kört koden kommer en Kutools för Excel-dialogruta att dyka upp, vänligen ange nyckelorden du hittar och separera dem med kommatecken.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Hej hur kan detta makro revideras för att ta fler nyckelord? Jag har ungefär 170 ord som jag skulle vilja hitta och ersätta
JM
Denna kommentar minimerades av moderatoren på webbplatsen
Hej JM,
Efter att ha kört koden kommer en Kutools för Excel-dialogruta att dyka upp, vänligen ange nyckelorden du hittar och separera dem med kommatecken.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Hej! Först, grattis till ditt arbete: detta makro är mycket användbart och intressant! Jag skulle ändå vilja att du hjälper mig med en sak. Jag är en korrekturläsare och skulle vilja att ersättningarna skulle markeras i grön eller röd färg. Hur kan jag göra detta? Finns det någon kodrad jag kan använda?
Walter Mendes
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Batchsök och ersätt-funktionen i Kutools för Word kan perfekt lösa ditt problem, du kan prova.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Efter att ha tryckt på Ersätt går den bara till förhandsgranskning och gör inget mer.
ajs
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Ajs, Alla nödvändiga ord har ersatts på en gång efter att du tryckt på Ersätt-knappen. Den går till fliken Förhandsgranska för att hjälpa dig veta hur många ord som har ersatts. Stäng sedan dialogrutan.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Vad händer om jag försöker ersätta kommatecken?
AJs
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-koden kan inte hjälpa till att ersätta kommatecken. Du kan använda Kutools för att uppnå.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
I den första instruktionen (Hitta och ersätt flera ord samtidigt i Word med VBA-kod) hittar den inte tillfällen där ordet som ska ersättas hamnar mitt i ett ord (till exempel .com efter ett webbplatsnamn) . Kan detta ändras för att göra det?
Vern
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för projektet. Kan du göra det så som vi också kan ersätta bokstäver i ord. Om jag till exempel vill ändra Dollar som Dollar fungerar det inte.
excel kille
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser