Как найти и заменить несколько слов одновременно в документе Word?

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

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

Найти и заменить несколько слов одновременно в Word с кодом VBA

Пожалуйста, сделайте следующее, чтобы найти и заменить несколько слов одновременно в документе Word.

1. Откройте документ Word, который хотите найти и заменить несколько слов одновременно, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль. Затем скопируйте ниже код VBA в окно модуля.

Код VBA: поиск и замена нескольких слов одновременно в Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. нажмите F5 ключ для запуска кода.

4. В первом Kutools for Word диалоговом окне введите несколько слов, которые вы найдете и замените, в текстовое поле и разделите их запятыми, затем щелкните OK кнопка. Смотрите скриншот:

5. В секунду Kutools for Word в диалоговом окне введите новые слова, которыми вы замените (эти слова также необходимо разделять запятыми), а затем щелкните OK .

Примечание: В этом случае все «КТЕ» в этом документе будет заменен на «Новый», и «КТО» и «KTW» будет заменено на "Контрольная работа" и "Конец". Пожалуйста, измените их под свои нужды.

Легко находите и заменяйте несколько слов одновременно в Word с помощью удивительной функции

1. Запустите приложение Microsoft Word, нажмите Кутулс Плюс > Пакетный поиск и замена.

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

• 2.1 щелкните значок кнопка> Добавить файл or Add Folder для добавления одного или нескольких документов, в которых вы найдете и замените несколько слов.
  
• 2.2 Щелкните значок Добавить ряд кнопку, чтобы вставить поля поиска и замены. Если вы хотите найти и заменить три разных текста одновременно, создайте три строки.
• 2.3 В каждой строке введите существующие слова, которые вы замените новым в поле Найдите столбец, а затем введите новые слова в Замените колонка.
• 2.4 Укажите Тип поиска для каждой строки.
• 2.5 В Найти в столбец выберите, где применить поиск и замену. Оно включает Основной документ, заголовок и нижний колонтитул в этой секции. Вы можете выбрать один из них, два или все в зависимости от ваших потребностей.
• 2.6. Нажмите Замените кнопку, чтобы начать операцию. Смотрите скриншот:

Затем в выбранных документах одновременно заменяются конкретные слова.

Наконечник: Вы можете выделить результат цветом фона, указав определенный цвет в Выделите столбец для ряда.

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

Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

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

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

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

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

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

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

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀

Бесплатная загрузка     Узнать больше     Купить