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

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

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

Поиск и замена текста в нескольких документах Word одновременно с помощью кода VBA

Этот метод показывает, как использовать код VBA для поиска и замены контента в нескольких документах одновременно.

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите «Вставить» > «Модуль», затем вставьте следующий код:

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
   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
               .Replacement.Text = xReplaceStr
               .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
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

3. Нажмите F5 для запуска кода.
4. В окне Обзор выберите документы, которые хотите обработать, затем нажмите «ОК».

   

5. В поле ввода «Найти что» введите слово или фразу для поиска и нажмите «ОК».

   

6. В поле ввода «Заменить на» введите текст для замены и нажмите «ОК».

   

7. Нажмите «ОК» в последнем диалоговом окне Microsoft Word.

   

Все экземпляры указанного текста в выбранных файлах Word будут заменены одновременно.

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

Функция «Пакетный поиск и замена» в Kutools for Word позволяет вам искать и заменять несколько текстовых элементов сразу в нескольких документах Word.

1. Нажмите «Kutools» > «Пакетная замена».

   

2. В диалоговом окне «Пакетный поиск и замена» настройте параметры:
   1. Нажмите кнопку «Добавить строку».
   2. В новой строке:
      1. Введите текст для поиска под полем «Найти».
      2. Введите текст для замены под полем «Заменить».
      3. При необходимости укажите тип поиска, место, где нужно найти и заменить, цвет выделения и другие параметры в соответствующих столбцах.
   3. Нажмите кнопку в разделе «Тип файла», чтобы добавить файлы Word в пакет.
   4. Нажмите «Заменить» или «Найти».
      Совет: Повторите шаги 1) и 2), чтобы добавить больше правил поиска и замены.

      

3. Закройте диалоговое окно «Пакетный поиск и замена», когда закончите.

Для получения дополнительной информации о функции «Пакетный поиск и замена» просмотрите страницу с руководством.

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

➕ Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

⭐ Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...

👉 Хотите опробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀

Бесплатная загрузка     Купить сейчас     Подробнее о Kutools для Word

 

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — 100+ инструментов для Word

• 🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка / Супер Перевод / Искусственный интеллект для редактирования / Проверка с помощью ИИ
• 📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Пакетно преобразовать в PDF
• ✏ Редактирование содержимого: Пакетный поиск и замена / Изменить размер всех изображений
• 🧹 Легкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
• ➕ Креативные вставки: Вставить разделители тысяч / Вставить флажки / Создать QR-коды

Бесплатная загрузка Купить сейчас Подробнее о Kutools