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?
Jeśli masz kilkadziesiąt plików ze słowami, które zawierają tę samą zawartość (na przykład nagłówek, stopka, kilka specjalnych słów lub liczba) i musisz zamienić tę samą zawartość w tych dokumentach w programie Word. Jak byłoby ci łatwiej zrobić to szybko? Z pewnością możesz otwierać te pliki jeden po drugim, aby zastąpić tę samą zawartość, ale będzie to czasochłonne i kłopotliwe. Ten samouczek pokaże ci trudny sposób na zastąpienie tej samej treści w wielu dokumentach w programie Word jednocześnie.
Znajdź i zamień teksty w wielu dokumentach tekstowych w tym samym czasie za pomocą kodu VBA
Łatwo znajduj i zamieniaj różne teksty w wielu dokumentach w tym samym czasie za pomocą Kutools for Word
1. naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj następujący kod VBA do okna Module.
Kod VBA: wyszukiwanie i zastępowanie tej samej treści w wielu dokumentach jednocześnie
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. wciśnij F5 klucz do uruchomienia kodu.
4. W otwarciu Przeglądaj znajdź i wybierz dokumenty, które znajdziesz i zamień tekst w środku, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
5. W pierwszym Kutools for Word W oknie dialogowym wprowadź tekst, który znajdziesz w dokumentach do pliku Znajdź co a następnie kliknij OK przycisk.
6. W sekundę Kutools for Word wprowadź tekst, który chcesz zamienić, i kliknij OK przycisk.
8. Kliknij OK przycisk w następnym Microsoft Word okno dialogowe, aby zakończyć wyszukiwanie i zamianę.
W tym przypadku wszystkie słowa „Word” w wybranych dokumentach są jednocześnie zastępowane słowami „Excel”.
Tutaj bardzo polecam Znajdź i zamień partii cechą Kutools for Word. Dzięki tej funkcji możesz łatwo znajdować i zastępować różne teksty w wielu dokumentach Word w tym samym czasie. Zobaczmy, jak zastosować tę funkcję, aby znaleźć i zamienić teksty w dokumentach.
Kutools for Word : z ponad 100 przydatnymi dodatkami do Worda, bezpłatnie wypróbować bez ograniczeń w ciągu 60 dni.
1. Proszę kliknąć Kutools Plus > Znajdź i zamień partii aby włączyć tę funkcję.
2. w Znajdź i zamień partii okno dialogowe, skonfiguruj w następujący sposób.
3. Zamknij Znajdź i zamień partii Okno dialogowe
Aby uzyskać więcej informacji na temat tej funkcji, proszę Kliknij tutaj....
Jeśli chcesz skorzystać z bezpłatnej wersji próbnej tego narzędzia, przejdź do bezpłatnie pobrać oprogramowanie najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.