One thing that may make it even better, is adding support for subdirectories. (That is: Files in multiple subdirectories)
I am an absolute newbie in this, and don't know the syntax, the parameter, or where to add that.
Could somebody help?
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ě
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“.
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.
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ů.