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. ...




















