Как искать и заменять в нескольких файлах словом?

Если у вас есть несколько десятков файлов слов, которые содержат одинаковое содержимое (например, верхний колонтитул, нижний колонтитул, некоторые специальные слова или числа), и вам необходимо заменить одно и то же содержимое в этих документах в Word. Как вам было бы проще сделать это быстро? Конечно, вы можете открывать эти файлы один за другим, чтобы заменить одно и то же содержимое, но это займет много времени и проблем. Это руководство покажет вам сложный способ одновременной замены одного и того же содержимого в нескольких документах Word.

Находите и заменяйте тексты в нескольких текстовых документах одновременно с кодом VBA
Легко находите и заменяйте разные тексты в нескольких документах одновременно с помощью Kutools for Word

Находите и заменяйте тексты в нескольких текстовых документах одновременно с кодом VBA

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

Здесь очень рекомендую Пакетный поиск и замена особенность Kutools for Word. С помощью этой функции вы можете легко находить и заменять разные тексты в нескольких документах Word одновременно. Давайте посмотрим, как применить эту функцию для поиска и замены текстов в документах.

Kutools for Word : с более чем 100 удобными надстройками Word, бесплатно без ограничений в течение 60 дней.

1. Щелкните Кутулс Плюс > Пакетный поиск и замена для включения функции.

2. в Пакетный поиск и замена диалоговое окно, настройте следующим образом.

• 2.1) Нажмите Добавить строку под Найти и заменить вкладка;
• 2.2) В созданных полях строки:

• 2.3) Повторите шаги 2.1 и 2.2, чтобы добавить другие тексты, которые вы найдете и замените;
• 2.4) Нажмите  в Тип файла раздел для добавления документов Word, в которых вы найдете и замените тексты;
• 2.5) Нажмите Замените or Найдите кнопка. Смотрите скриншот:

3. Закрой Пакетный поиск и замена Диалоговое окно

Для получения дополнительной информации об этой функции, пожалуйста, нажмите здесь ....

Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

Рекомендуемые инструменты для повышения производительности Word