Как да намерите и замените няколко думи едновременно в документ на 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 за Word диалогов прозорец, въведете няколкото думи, които ще намерите и замените в текстовото поле, и ги разделете със запетая, след което щракнете върху OK бутон. Вижте екранна снимка:

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

Забележка: В този случай всички „KTE“ в този документ ще бъдат заменени с „Ново“, намлява „KTO“ намлява „KTW“ ще бъдат заменени с "Тест" намлява "Завършек". Моля, променете ги според вашите нужди.

Лесно намирайте и замествайте няколко думи едновременно в Word с невероятна функция

1. Стартирайте приложението Microsoft Word, щракнете Kutools плюс > Пакетно намиране и замяна.

2. В Пакетно намиране и замяна прозорец, моля, конфигурирайте както следва.

• 2.1 щракнете върху бутон> Добавяне на файл or Добавяне на папка за да добавите един или повече документи, в които ще намерите и замените няколко думи.
  
• 2.2 Кликнете върху Добавяне на ред бутон за вмъкване на полетата за намиране и замяна. Ако искате да намерите и замените три различни текста едновременно, моля, създайте три реда.
• 2.3 Във всеки ред въведете съществуващите думи, които ще замените с нови в Какво и след това въведете новите думи в Сменете колона.
• 2.4 Посочете Тип на търсене за всеки ред.
• 2.5 В Открий в изберете къде да приложите намирането и замяната. Включва Основен документ, Header намлява Footer В тази секция. Можете да изберете един от тях, два от тях или всички въз основа на вашите нужди.
• 2.6. Щракнете върху Сменете бутон за стартиране на операцията. Вижте екранна снимка:

След това конкретните думи се заменят едновременно в избрани документи.

Съвет: Можете да маркирате резултата с цвят на фона, като посочите определен цвят в Маркирайте колона за ред.

  Ако искате да имате безплатен пробен период (60 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.

Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

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

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

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

➕ Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

⭐ Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 60-дневен безплатен пробен период, без ограничения! ????

Безплатно сваляне     Вижте повече     Поръчай сега