Note: The other languages of the website are Google-translated. Back to English

Як знайти та замінити одночасно кілька слів у документі 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 для Word діалогове вікно, введіть кілька слів, які ви знайдете та заміните, у текстове поле, і розділіть їх комами, а потім клацніть на OK кнопку. Дивіться знімок екрана:

5 У другому Kutools для Word діалогове вікно, введіть нові слова, якими ви будете замінювати (ці слова також потрібно розділяти комами), а потім клацніть на OK кнопки.

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


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

повне г, повне г,, показали, від, номер, XNUMX Пакетний пошук та заміна особливість Kutools для Word може допомогти легко знаходити та замінювати різні тексти в документі або в кількох документах одночасно.

Перш ніж застосовувати цю функцію, зачекайте хвилини завантажте та встановіть його спочатку.

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

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

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

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

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

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


Рекомендовані засоби підвищення продуктивності слів

 

Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (21)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formatování. Jak toho dosáhnu?
Цей коментар був мінімізований модератором на сайті
чи працюватиме це в офісі Excel 365
Цей коментар був мінімізований модератором на сайті
Чи є спосіб зробити цей регістр чутливим?
Цей коментар був мінімізований модератором на сайті
Привіт, це добре працює з англійськими словами. Зараз я роблю документ, де перекладаю англійську на гуджараті. Отже, коли я застосовую це (Знайти англійські слова) і (Замінити словами гуджараті), воно змінюється, але виглядає як "???". Не показує слово гуджараті, а лише знаки питання? Будь-яка додаткова допомога? Будь ласка.
Цей коментар був мінімізований модератором на сайті
Привіт, Шайлеш, зіткнувся з такою ж проблемою. Ви знайшли рішення для цього. Я також намагаюся зрозуміти, як змінити китайську мову на англійську.
Цей коментар був мінімізований модератором на сайті
Як знайти і вибрати кілька слів одночасно
Цей коментар був мінімізований модератором на сайті
привіт,
Після запуску коду з’явиться діалогове вікно Kutools for Excel, будь ласка, введіть ключові слова, які ви знайдете, і розділіть їх комами.
Цей коментар був мінімізований модератором на сайті
Привіт, як можна змінити цей макрос, щоб взяти більше ключових слів? У мене є близько 170 слів, які я хотів би знайти та замінити
Цей коментар був мінімізований модератором на сайті
Привіт JM!
Після запуску коду з’явиться діалогове вікно Kutools for Excel, будь ласка, введіть ключові слова, які ви знайдете, і розділіть їх комами.
Цей коментар був мінімізований модератором на сайті
Привіт! По-перше, вітаю за роботу: цей макрос дуже корисний і цікавий! Але я хотів би, щоб ти допоміг мені в одній справі. Я коректор і хотів би, щоб заміни були виділені зеленим або червоним кольором. Як я можу це зробити? Чи є рядок коду, який я міг би використати?
Цей коментар був мінімізований модератором на сайті
Привіт, функція пакетного пошуку та заміни Kutools for Word може ідеально вирішити вашу проблему, ви можете спробувати.
Цей коментар був мінімізований модератором на сайті
Після натискання Замінити він просто переходить до попереднього перегляду і більше нічого не робить.
Цей коментар був мінімізований модератором на сайті
Привіт, Ajs! Усі необхідні слова було успішно замінено одразу після натискання кнопки Замінити. Він переходить на вкладку Попередній перегляд, щоб допомогти вам дізнатися, скільки слів було успішно замінено. Після цього закрийте діалогове вікно.
Цей коментар був мінімізований модератором на сайті
Що робити, якщо я намагаюся замінити коми?
Цей коментар був мінімізований модератором на сайті
Код VBA не може допомогти замінити коми. Ви можете застосувати Kutools для досягнення.
Цей коментар був мінімізований модератором на сайті
У першій інструкції (Знайти та замінити кілька слів одночасно в Word за допомогою коду VBA) він не знаходить випадків, коли слово, яке потрібно замінити, потрапляє в середину слова (наприклад, .com після імені веб-сайту) . Чи можна це змінити для цього?
Цей коментар був мінімізований модератором на сайті
Дякую за проект, не могли б ви зробити так, як ми також можемо замінити букви в словах. Наприклад, якщо я хочу змінити долар на долар, він не працює.
Цей коментар був мінімізований модератором на сайті
Chào bạn, có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một file trong đó có 2 cột, 1 cột là cụm từ nguồn và cột 2 là cụm từ đích được không? rất cám ơn bạn.
Цей коментар був мінімізований модератором на сайті
Привіт Нгуен Фук Лам,
Я рекомендую вам застосувати функцію пакетного пошуку та заміни Kutools for Word (другий метод у цій публікації), щоб вирішити цю проблему.
У діалоговому вікні «Знайти та замінити» після створення двох потрібних стовпців ви можете зберегти поточні параметри як сценарій для майбутнього використання.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Цей коментар був мінімізований модератором на сайті
Cám ơn кристал, cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000 .. cụ từ thìt thôt thôt thôt thôt thôt. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
Цей коментар був мінімізований модератором на сайті
Привіт Нгуен Фук Лам,
Тимчасово не вдається вирішити цю проблему за допомогою коду VBA, оскільки він дещо складний. Цю функцію буде розглянуто для оновлення в наступному випуску. Вибачте за незручності.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL