Jak vyhledávat a nahrazovat více souborů ve Wordu?

Pokud máte několik desítek souborů aplikace Word obsahující stejný obsah, jako jsou záhlaví, zápatí nebo konkrétní slova či čísla, a potřebujete tento obsah nahradit ve všech dokumentech, ruční provádění může být časově náročné a těžkopádné. Naštěstí existují efektivnější způsoby, jak tento úkol zvládnout. Tento tutoriál vám ukáže složité metody, jak nahradit stejný obsah ve více dokumentech Wordu najednou, což vám ušetří čas a námahu:

Vyhledejte a nahraďte texty ve více dokumentech aplikace Word současně pomocí kódu VBA
Pomocí aplikace Kutools pro Word můžete snadno najít a nahradit různé texty ve více dokumentech současně

Vyhledejte a nahraďte texty ve více dokumentech aplikace Word současně pomocí kódu VBA

Tato metoda vysvětluje, jak používat kód VBA k hledání a nahrazování textu ve více dokumentech aplikace Word současně, což šetří čas a námahu při práci s velkými objemy souborů.

1. Stisknout Alt + F11 k otevření Microsoft Visual Basic pro aplikace okno.
2. v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, poté zkopírujte a vložte následující kód VBA do Modul okno.

   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. Stisknout F5 spustit kód.
4. v Procházet vyberte dokumenty, ve kterých chcete najít a nahradit text, a poté klepněte OK.

   

5. Zaprvé Kutools pro Word dialogovém okně zadejte text, který chcete najít Najít to, co pole a klepněte na tlačítko OK.

   

6. Ve druhém Kutools pro Word dialogovém okně zadejte text, kterým jej chcete nahradit, a klepněte na OK.

   

7. klikněte OK ve finále Microsoft Word dialogové okno pro dokončení procesu.

   

V tomto případě jsou všechny výskyty "Word" ve vybraných dokumentech nahrazeny "Excel" současně.

Pomocí aplikace Kutools pro Word můžete snadno najít a nahradit různé texty ve více dokumentech současně

Jedno Dávkové hledání a nahrazení funkce v Kutools pro Word umožňuje bez námahy najít a nahradit různé texty ve více dokumentech Wordu současně. Chcete-li tuto funkci použít, postupujte podle následujících kroků:

1. klikněte Kutools > Dávková výměna.

   

2. v Dávkové hledání a nahrazení dialogovém okně nakonfigurujte následovně:
   1. Klepněte na tlačítko Přidat řádek pod tlačítkem Najít a nahradit Karta.
   2. Ve vytvořených řádkových polích:
      1. Zadejte text, který chcete najít Najít sloupec.
      2. Zadejte náhradní text do Nahradit sloupec.
      3. V příslušných sloupcích zadejte typ vyhledávání, umístění, kde se má najít a nahradit, barvu zvýraznění a další možnosti podle potřeby.
   3. Klepněte na tlačítko tlačítko v Typ souboru sekce pro přidání dokumentů aplikace Word ke zpracování.
   4. Klepněte na tlačítko Nahradit or Najít .
      Tip: Opakováním kroků 1) a 2) přidejte další pravidla hledání a nahrazování.

      

3. Zavři Dávkové hledání a nahrazení dialogové okno.

Pro více informací o Dávkové hledání a nahrazení Vlastnosti, zobrazit stránku s návodem.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Generovat, Přepsat, Shrnout, přeložit Dokumenty / Získejte rychlé odpovědi / Polský dokument (zachovat formát)
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools