Hvordan søger og erstatter jeg flere filer i Word?

Hvis du har flere dusin Word-filer, der indeholder det samme indhold, såsom sidehoveder, sidefødder eller specifikke ord eller tal, og du skal erstatte dette indhold på tværs af alle dokumenter, kan det være tidskrævende og besværligt at gøre det manuelt. Heldigvis er der mere effektive måder at håndtere denne opgave på. Denne vejledning viser dig vanskelige metoder til at erstatte det samme indhold i flere Word-dokumenter på én gang, hvilket sparer dig tid og kræfter:

Find og erstat tekster på tværs af flere Word-dokumenter på samme tid med VBA-kode
Find og udskift let forskellige tekster på tværs af flere dokumenter på samme tid med Kutools for Word

Find og erstat tekster på tværs af flere Word-dokumenter på samme tid med VBA-kode

Denne metode forklarer, hvordan man bruger en VBA-kode til at søge efter og erstatte tekst på tværs af flere Word-dokumenter samtidigt, hvilket sparer tid og kræfter, når man håndterer store mængder filer.

1. Presse Alt + F11 at åbne Microsoft Visual Basic til applikationer vindue.
2. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier og indsæt derefter følgende VBA-kode i Moduler vindue.

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
   Dim xFindStr As String
   Dim xReplaceStr As String
   Dim xDoc As Document
   On Error Resume Next
   Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
   With xFileDialog
       .Filters.Clear
       .Filters.Add "All WORD File ", "*.docx", 1
       .AllowMultiSelect = True
       i = 1
       If .Show = -1 Then
           For Each stiSelectedItem In .SelectedItems
               GetStr(i) = stiSelectedItem
               i = i + 1
           Next
           i = i - 1
       End If
       Application.ScreenUpdating = False
       xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
       xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
       For j = 1 To i Step 1
           Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
           Windows(GetStr(j)).Activate
           Selection.Find.ClearFormatting
           Selection.Find.Replacement.ClearFormatting
           With Selection.Find
               .Text = xFindStr  'Find What
               .Replacement.Text = xReplaceStr  'Replace With
               .Forward = True
               .Wrap = wdFindAsk
               .Format = False
               .MatchCase = False
               .MatchWholeWord = False
               .MatchByte = True
               .MatchWildcards = False
               .MatchSoundsLike = False
               .MatchAllWordForms = False
           End With
           Selection.Find.Execute Replace:=wdReplaceAll
           Application.Run macroname:="NEWMACROS"
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

3. Presse F5 at køre koden.
4. I Gennemse vindue, vælg de dokumenter, hvor du vil finde og erstatte tekst, og klik derefter OK.

   

5. Først og fremmest Kutools for Word dialogboksen skal du indtaste den tekst, du vil finde i Find hvad felt og klik OK.

   

6. I det andet Kutools for Word dialogboksen, indtast den tekst, du vil erstatte den med, og klik OK.

   

7. Klik OK i finalen Microsoft Word dialogboksen for at afslutte processen.

   

I dette tilfælde erstattes alle forekomster af "Word" i de valgte dokumenter med "Excel" på samme tid.

Find og udskift let forskellige tekster på tværs af flere dokumenter på samme tid med Kutools for Word

Her kan man varmt anbefale Batch Find og erstat træk ved Kutools for Word. Med denne funktion kan du nemt finde og erstatte forskellige tekster på tværs af flere Word-dokumenter på samme tid. Lad os se, hvordan vi anvender denne funktion til at finde og erstatte tekster på tværs af dokumenter.

1. Klik venligst Kutools Plus > Batch Find og erstat for at aktivere funktionen.

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

• 2.1) Klik på Tilføj række knappen under Søg og erstat fanen;
• 2.2) I de oprettede rækkefelter:

• 2.3) Gentag trin 2.1 og 2.2 for at tilføje flere tekster, du finder og erstatter;
• 2.4) Klik på  knappen i Filtype sektion for at tilføje Word-dokumenter, hvor du finder og erstatter tekster;
• 2.5) Klik på udskifte or Finde knap. Se skærmbillede:

3. Luk Batch Find og erstat dialogboks

Klik her for mere information om Batch Find og erstat funktion.

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...

📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...

✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...

➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...

⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...

???? Vil du prøve disse funktioner? Download Kutools til Word nu! 🚀

Gratis download     Køb Nu     Lær mere om Kutools for Word

 

Bedste kontorproduktivitetsværktøjer

Kutools for Word - 100+ værktøjer til Word

• 🤖 Kutools AI-funktioner: Generer, Omskriv, Opsummer, oversætte Dokumenter / Få hurtige svar / Polsk dokument (bevar format)
• 📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Batch Konverter til PDF
• ✏ Indholdsredigering: Batch Find og erstat / Ændr størrelse på alle billeder
• 🧹 Ubesværet rengøring: Fjern ekstra pladser / Fjern sektionsbrud
• ➕ Kreative indlæg: Indsæt tusinde separatorer / Indsæt afkrydsningsfelter / Opret QR-koder

Gratis download Køb Nu Lær mere om Kutools