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

Pokud máte několik desítek souborů slov, které obsahují stejný obsah (například záhlaví, zápatí, některá speciální slova nebo číslo), a musíte nahradit stejný obsah v těchto dokumentech v aplikaci Word. Jak by pro vás bylo snazší to udělat rychle? Určitě můžete tyto soubory otevírat jeden po druhém, abyste nahradili stejný obsah, ale bude to časově náročné a problematické. Tento výukový program vám ukáže složitý způsob, jak nahradit stejný obsah ve více dokumentech najednou.

Najděte a nahraďte texty ve více slovních dokumentech 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ě

Najděte a nahraďte texty ve více slovních dokumentech současně pomocí kódu VBA

1. lis Další + 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, potom zkopírujte následující kód VBA do okna modulu.

Kód VBA: Hledání a nahrazování stejného obsahu ve více dokumentech najednou

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. zmáčkni F5 klíč ke spuštění kódu.

4. V otvoru Procházet V okně vyhledejte a vyberte dokumenty, ve kterých najdete a nahradíte text, a poté klikněte na ikonu OK knoflík. Viz screenshot:

5. V první Kutools pro Word Do dialogového okna zadejte text, který najdete v dokumentech Najít to, co a poté klikněte na OK tlačítko.

6. Ve druhé Kutools pro Word dialogové okno, zadejte text, který nahradíte, a klikněte na OK tlačítko.

8. Klepněte na tlačítko OK tlačítko v dalším Microsoft Word dialogové okno pro dokončení hledání a nahrazení.

V takovém případě budou všechna slova „Word“ ve vybraných dokumentech současně nahrazena slovy „Excel“.

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

Zde velmi doporučujeme Dávkové hledání a nahrazení vlastnost Kutools pro Word. Díky této funkci můžete snadno najít a nahradit různé texty ve více dokumentech Word najednou. Podívejme se, jak použít tuto funkci k vyhledání a nahrazení textů v dokumentech.

Kutools pro Word : s více než 100 užitečnými doplňky Wordu, zdarma vyzkoušet bez omezení do 60 dnů.

1. Klikněte prosím Kutools Plus > Dávkové hledání a nahrazení pro povolení této funkce.

2. V Dávkové hledání a nahrazení V dialogovém okně proveďte následující konfiguraci.

• 2.1) Klikněte na Přidat řádek pod tlačítkem Najít a nahradit karta;
• 2.2) V polích vytvořených řádků:

• 2.3) Opakujte kroky 2.1 a 2.2 a přidejte další texty, které najdete a nahradíte;
• 2.4) Klikněte na  tlačítko v Typ souboru sekce pro přidání dokumentů Wordu, ve kterých najdete a nahradíte texty;
• 2.5) Klikněte na Nahradit or Najít knoflík. Viz screenshot:

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

Další informace o této funkci získáte klikněte zde....

Chcete-li mít bezplatnou zkušební verzi tohoto nástroje, přejděte na software si stáhněte zdarma nejprve a poté přejděte k použití operace podle výše uvedených kroků.

Doporučené nástroje produktivity slov