KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторАманда ЛиДата изменения

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

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

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

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

  1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
  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 для Word

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

Kutools для Word

Kutools для Word ускоряет выполнение повседневных задач по работе с документами благодаря практичным инструментам, встроенным прямо в Microsoft Word — без программирования и сложной настройки.

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

Примечания:

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

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

Хотите быстрее справляться с похожими задачами в Word? Попробуйте Kutools для Word и сделайте свою повседневную работу проще!

СкачатьПодробнее

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

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

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

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

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

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

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

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

Kutools for Word вкладки на ленте
 
 

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
  • Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

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

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

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