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?
Если у вас есть несколько десятков файлов слов, которые содержат одинаковое содержимое (например, верхний колонтитул, нижний колонтитул, некоторые специальные слова или числа), и вам необходимо заменить одно и то же содержимое в этих документах в Word. Как вам было бы проще сделать это быстро? Конечно, вы можете открывать эти файлы один за другим, чтобы заменить одно и то же содержимое, но это займет много времени и проблем. Это руководство покажет вам сложный способ одновременной замены одного и того же содержимого в нескольких документах Word.
Находите и заменяйте тексты в нескольких текстовых документах одновременно с кодом VBA
Легко находите и заменяйте разные тексты в нескольких документах одновременно с помощью Kutools for Word
1. Нажмите другой + F11 для открытия Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > модуль, затем скопируйте следующий код VBA в окно модуля.
Код VBA: поиск и замена одного и того же контента в нескольких документах одновременно
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. нажмите F5 ключ для запуска кода.
4. В дебюте Выполнить в окне найдите и выберите документы, которые вы найдете и замените текст внутри, а затем щелкните OK кнопка. Смотрите скриншот:
5. В первом Kutools for Word диалоговом окне введите текст, который вы найдете в документах, в Найти то, что поле, а затем щелкните OK кнопку.
6. В секунду Kutools for Word диалоговом окне введите текст, которым вы будете заменять, и щелкните OK кнопку.
8. Нажмите OK кнопка в следующем Microsoft Word диалоговое окно для завершения поиска и замены.
В этом случае все слова «Word» в выбранных документах заменяются одновременно на «Excel».
Здесь очень рекомендую Пакетный поиск и замена особенность Kutools for Word. С помощью этой функции вы можете легко находить и заменять разные тексты в нескольких документах Word одновременно. Давайте посмотрим, как применить эту функцию для поиска и замены текстов в документах.
Kutools for Word : с более чем 100 удобными надстройками Word, бесплатно без ограничений в течение 60 дней.
1. Щелкните Kutools Plus > Пакетный поиск и замена для включения функции.
2. в Пакетный поиск и замена диалоговое окно, настройте следующим образом.
3. Закрой Пакетный поиск и замена Диалоговое окно
Для получения дополнительной информации об этой функции, пожалуйста, нажмите здесь ....
Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.