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

Hvordan finder man og erstatter flere ord på samme tid i et Word-dokument?

Word giver en Find og erstat funktion for at finde alle forekomster af et ord eller en sætning og erstatte dem med et nyt ord på samme tid. Men hvis du vil finde og erstatte forskellige ord på samme tid, kan denne indbyggingsfunktion ikke hjælpe. I denne artikel taler vi om en VBA-metode til at finde og erstatte flere forskellige ord på samme tid i Word-dokument.

Find og erstat flere ord på samme tid i Word med VBA-kode
Find og udskift let flere ord på samme tid i Word med en fantastisk funktion


Find og erstat flere ord på samme tid i Word med VBA-kode

Gør som følger for at finde og erstatte flere ord på samme tid i et Word-dokument.

1. Åbn det Word-dokument, du vil finde, og udskift flere ord på samme tid, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Modul. Kopier derefter under VBA-koden i modulvinduet.

VBA-kode: Find og erstat flere ord på samme tid 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. Tryk på F5 nøgle for at køre koden.

4. I den første Kutools for Word dialogboksen, skal du indtaste de flere ord, du finder, og erstatte i tekstboksen, og adskille dem med komma, og klik derefter på OK knap. Se skærmbillede:

5. I det andet Kutools for Word dialogboksen, skal du indtaste de nye ord, du vil erstatte med (disse ord skal også adskilles med kommaer), og klik derefter på OK .

Bemærk: I dette tilfælde alle "KTE" i dette dokument vil blive erstattet med "Ny", og "KTO" og "KTW" vil blive erstattet med "Prøve" og "Afslut". Skift dem til dine behov.


Find og udskift let flere ord på samme tid i Word med en fantastisk funktion

Batch Find og erstat træk ved Kutools for Word kan hjælpe med let at finde og erstatte forskellige tekster i et dokument eller på tværs af flere dokumenter på samme tid.

Inden du anvender denne funktion, skal du tage minutter til download og installer det først.

1. Start Microsoft Word-applikationen, klik på Kutools Plus > Batch Find og erstat.

2. i Batch Find og erstat vindue, skal du konfigurere som følger.

  • 2.1 klik på knap> Tilføj fil or Tilføj mappe for at tilføje et eller flere dokumenter, hvor du finder og erstatter flere ord.
  • 2.2 Klik på Tilføj række knap for at indsætte find og erstat felter. Hvis du vil finde og erstatte tre forskellige tekster på samme tid, skal du oprette tre rækker.
  • 2.3 I hver række skal du indtaste de eksisterende ord, du vil erstatte med en ny i find kolonne, og indtast derefter de nye ord i udskifte kolonne.
  • 2.4 Specificer Søgetype for hver række.
  • 2.5 I Finde ind i kolonnen, vælg hvor du vil finde og erstatte. Det omfatter Hoveddokument, Header og Sidefod i dette afsnit. Du kan vælge en af ​​dem, to af dem eller alle ud fra dine behov.
  • 2.6. Klik på udskifte for at starte operationen. Se skærmbillede:

Derefter erstattes de specifikke ord i valgte dokumenter på samme tid.

Tip: Du kan fremhæve resultatet med baggrundsfarve ved at angive en bestemt farve i Fremhæv kolonne for en række.

  Hvis du vil have en gratis prøveperiode (60 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Anbefalede Word-produktivitetsværktøjer

 

Kutools til Word - mere end 100 avancerede funktioner til Word, spar din 50% tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
  • Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
Sorter kommentarer efter
Kommentarer (21)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
Denne kommentar blev minimeret af moderatoren på webstedet
vil dette fungere i Office Excel 365
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen måde at gøre denne case-sensitive?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, dette fungerer godt med engelske ord. Nu laver jeg et dokument, hvor jeg oversætter engelsk til Gujarati. Så når jeg anvender dette, (Find engelske ord) og (Erstat med Gujarati-ord), ændres det, men det ser ud som "???". Viser det ikke Gujarati-ordet, men kun spørgsmålstegn? Yderligere hjælp? Vær venlig.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Shailesh, står over for det samme problem. Fandt du en løsning på det. Jeg forsøger også at finde ud af, hvordan man skifter fra kinesisk til engelsk.
Denne kommentar blev minimeret af moderatoren på webstedet
Sådan finder og vælger du flere ord på samme tid
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Efter at have kørt koden, vil en Kutools til Excel-dialogboks dukke op, indtast venligst de nøgleord, du finder, og adskil dem med kommaer.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej hvordan kan denne makro revideres til at tage flere nøgleord? Jeg har omkring 170 ord, som jeg gerne vil finde og erstatte
Denne kommentar blev minimeret af moderatoren på webstedet
Hej JM,
Efter at have kørt koden, vil en Kutools til Excel-dialogboks dukke op, indtast venligst de nøgleord, du finder, og adskil dem med kommaer.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Først, tillykke med dit arbejde: denne makro er meget nyttig og interessant! Jeg vil alligevel gerne hjælpe mig med én ting. Jeg er korrekturlæser og vil gerne have udskiftningerne fremhævet i grøn eller rød farve. Hvordan kan jeg gøre dette? Er der en kodelinje jeg kan bruge?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Batch Find and Replace-funktionen i Kutools for Word kan perfekt løse dit problem, du kan prøve.
Denne kommentar blev minimeret af moderatoren på webstedet
Efter at have trykket på Erstat, går den bare til Preview og gør ikke noget mere.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Ajs, Alle påkrævede ord er blevet erstattet med det samme efter at have trykket på Erstat-knappen. Det går til fanen Eksempel for at hjælpe dig med at vide, hvor mange ord der er blevet erstattet. Luk derefter dialogboksen.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis jeg forsøger at erstatte kommaer?
Denne kommentar blev minimeret af moderatoren på webstedet
VBA-koden kan ikke hjælpe med at erstatte kommaer. Du kan anvende Kutools for at opnå.
Denne kommentar blev minimeret af moderatoren på webstedet
I den første instruktion (Find og erstat flere ord på samme tid i Word med VBA-kode) finder den ikke tilfælde, hvor ordet, der skal erstattes, falder midt i et ord (f.eks. .com efter et webstedsnavn) . Kan dette ændres til at gøre det?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for projektet. Kunne du gøre det på den måde, vi også kan erstatte bogstaver i ord. For eksempel hvis jeg vil ændre Dollar som Dollar, fungerer det ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Chào Bạn, Có Cách Nào Thay thế rất nhiều cụm từ bằng rất nhiều cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một file trong đó có 2 cột, 1 cột cụm từ đích được không? rất cám ơn bạn.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Nguyễn Phúc Lâm,
Jeg anbefaler dig at anvende Batch Find and Replace-funktionen i Kutools for Word (den anden metode i dette indlæg) for at løse dette problem.
I dialogboksen Find og erstat, efter at have oprettet de to kolonner, du har brug for, kan du gemme de aktuelle indstillinger som et scenarie til fremtidig brug.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Denne kommentar blev minimeret af moderatoren på webstedet
Cám ơn Crystal, Cách này Có thể áp 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ừ) thì rất khó ể có thậ nhập th ô côn. Hvad er det? Cám ơn bạn đã trả lời
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Nguyễn Phúc Lâm,
Midlertidigt ude af stand til at håndtere dette problem med VBA-kode, da det er lidt komplekst. Denne funktion vil blive overvejet til opgradering i næste udgivelse. Beklager ulejligheden.
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL