Перейти к содержимому

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

Author: Amanda Li Last Modified: 2025-08-07

Если у вас есть десятки файлов 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. В окне Обзор выберите документы, которые хотите обработать, затем нажмите «ОК».
    Browse window
  5. В поле ввода «Найти что» введите слово или фразу для поиска и нажмите «ОК».
    Find what box
  6. В поле ввода «Заменить на» введите текст для замены и нажмите «ОК».
    Replace with box
  7. Нажмите «ОК» в последнем диалоговом окне Microsoft Word.
    Confirmation dialog

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

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

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

Kutools для Word,оснащённый ИИ 🤖, предлагает более 100 удобных функций для упрощения ваших задач.
  1. Нажмите «Kutools» > «Пакетная замена».
    Batch Replacement button
  2. В диалоговом окне «Пакетный поиск и замена» настройте параметры:
    1. Нажмите кнопку «Добавить строку».
    2. В новой строке:
      1. Введите текст для поиска под полем «Найти».
      2. Введите текст для замены под полем «Заменить».
      3. При необходимости укажите тип поиска, место, где нужно найти и заменить, цвет выделения и другие параметры в соответствующих столбцах.
    3. Нажмите Add button кнопку в разделе «Тип файла», чтобы добавить файлы Word в пакет.
    4. Нажмите «Заменить» или «Найти».
      Совет: Повторите шаги 1) и 2), чтобы добавить больше правил поиска и замены.
      Batch Find and Replace configuration
  3. Закройте диалоговое окно «Пакетный поиск и замена», когда закончите.

Примечания:

  • Если вы нажмете «Найти», совпадения появятся на вкладке «Предварительный просмотр результата». Чтобы применить замены позже, вернитесь на вкладку «Поиск и замена».
  • Если вы нажмете «Заменить», все совпадения будут немедленно заменены и показаны в разделе «Предварительный просмотр результата».
  • Если были указаны цвета выделения, замены в ваших документах Word будут соответствующим образом закодированы цветом.

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

Kutools для Word — это идеальный надстройка для Word, которая упрощает вашу работу и повышает навыки обработки документов. Получите сейчас!

Лучшие инструменты для повышения производительности в Office

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

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

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

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

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

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

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

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

🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!

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

Лучшие инструменты для повышения производительности в Office

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

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