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 .
6. Ve druhé Kutools pro Word dialogové okno, zadejte text, který nahradíte, a klikněte na OK .
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 k vyzkoušení bez omezení 60 dny.
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ů:
B. Zadejte text, který nahradíte, do textového pole v Nahradit sloupec;
C. Určete typ hledání, kde najdete text a barvu pro zvýraznění textu podle potřeby. V tomto případě vyberu Plná shoda slov, Hlavní dokument a určitou barvu z Typ vyhledávání, Nalézt v a Zdůraznit sloupce;
- 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ů.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 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 / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / 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 / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...