Як знайти та замінити одночасно кілька слів у документі Word?

Word надає функцію «Знайти та замінити», щоб одночасно знаходити всі екземпляри слова чи фрази та замінювати їх новим словом. Але якщо ви хочете одночасно знаходити та замінювати різні слова, ця вбудована функція не може допомогти. У цій статті ми говоримо про метод VBA для пошуку та заміни кількох різних слів одночасно в документі Word.

Знайдіть і замініть одночасно кілька слів у програмі Word кодом VBA
Легко знаходити та замінювати одночасно кілька слів у програмі Word дивовижною функцією

Знайдіть і замініть одночасно кілька слів у програмі Word кодом VBA

Будь ласка, виконайте наступні дії, щоб одночасно знайти та замінити декілька слів у документі Word.

1. Відкрийте документ Word, який ви хочете знайти, і замініть кілька слів одночасно, а потім натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуль. Потім скопіюйте код 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 кнопки.

Примітка: У цьому випадку всі "KTE" у цьому документі буде замінено на “Новий”, та “КТО” та "KTW" буде замінено на “Тест” та “Готово”. Будь ласка, змініть їх відповідно до своїх потреб.

Легко знаходити та замінювати одночасно кілька слів у програмі Word дивовижною функцією

1. Запустіть програму Microsoft Word, натисніть Kutools Plus > Пакетний пошук та заміна.

2 В Пакетний пошук та заміна вікно, будь ласка, налаштуйте наступним чином.

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

Потім конкретні слова одночасно замінюються у вибраних документах.

Порада: Ви можете виділити результат кольором тла, вказавши певний колір у полі Виділіть стовпець для рядка.

  Якщо ви хочете отримати безкоштовну пробну версію (60 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

Найкращі інструменти продуктивності офісу

Kutools for Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

Зануртеся в виділені функції нижче або натисніть тут, щоб дослідити всю потужність Kutools for Word.

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/XLSX)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно ...

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

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /   Усі заголовки  /  Текстові поля  /  Гіперпосилання  /  Щоб отримати додаткові інструменти для видалення, перейдіть до нашої групи видалення

➕ Творчі вставки: Insert Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  /  Дізнайтеся більше в нашій групі вставок

???? Точність вибору: Визначте конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  /  Переміщуйтеся з легкістю за допомогою нашої групи вибору

⭐ Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення ...

Перетворіть свої завдання Word за допомогою Kutools. 👉 Завантажте зараз із 30-денною пробною версією 🚀.

Детальніше       Безкоштовне завантаження      Купити