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 для приложений окна, нажмите Вставить > Модуль. Затем скопируйте ниже код 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 с помощью удивительной функции

Пакетный поиск и замена особенность Kutools for Word может помочь легко найти и заменить разные тексты в документе или в нескольких документах одновременно.

Прежде чем применить эту функцию, уделите несколько минут сначала скачайте и установите.

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

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

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

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

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

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


Рекомендуемые инструменты для повышения производительности Word

 

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

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (17)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
jaka1
Этот комментарий был сведен к минимуму модератором на сайте
будет ли это работать в офисе Excel 365
ришаб джайн
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ сделать этот регистр чувствительным?
Адам
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Это хорошо работает с английскими словами. Сейчас я делаю документ, в котором перевожу английский на гуджарати. Итак, когда я применяю это (Найти английские слова) и (Заменить словами гуджарати), оно меняется, но выглядит как «???». Не показывает слово гуджарати, а только вопросительные знаки? Любая дополнительная помощь? Пожалуйста.
Шайлеш Пателия
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Шайлеш, столкнулся с той же проблемой. Вы нашли решение для него. Я также пытаюсь выяснить, как перейти с китайского на английский.
Кирилл
Этот комментарий был сведен к минимуму модератором на сайте
Как найти и выбрать несколько слов одновременно
Ранджит Джагтап
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
После запуска кода появится диалоговое окно Kutools for Excel, введите ключевые слова, которые вы найдете, и разделите их запятыми.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Привет, как можно пересмотреть этот макрос, чтобы взять больше ключевых слов? У меня есть около 170 слов, которые я хотел бы найти и заменить
JM
Этот комментарий был сведен к минимуму модератором на сайте
Привет ДжМ,
После запуска кода появится диалоговое окно Kutools for Excel, введите ключевые слова, которые вы найдете, и разделите их запятыми.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Во-первых, поздравляю с работой: макрос очень полезный и интересный! Тем не менее, я хотел бы, чтобы вы помогли мне с одной вещью. Я корректор и хотел бы, чтобы замены выделялись зеленым или красным цветом. Как я могу это сделать? Есть ли строка кода, которую я мог бы использовать?
Уолтер Мендес
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Функция «Пакетный поиск и замена» Kutools for Word может идеально решить вашу проблему, вы можете попробовать.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
После нажатия «Заменить» он просто переходит к предварительному просмотру и больше ничего не делает.
Ajs
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Ajs, все необходимые слова были успешно заменены сразу после нажатия кнопки «Заменить». Он переходит на вкладку «Предварительный просмотр», чтобы помочь вам узнать, сколько слов было успешно заменено. После этого закройте диалоговое окно.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Что делать, если я пытаюсь заменить запятые?
AJ
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA не может помочь заменить запятые. Вы можете применить Kutools для достижения.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
В первой инструкции (Найти и заменить несколько слов одновременно в Word с кодом VBA) он не находит случаи, когда заменяемое слово находится в середине слова (например, .com после имени веб-сайта) . Можно ли это изменить, чтобы сделать это?
Верну
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за проект, Не могли бы вы сделать так, чтобы мы тоже могли заменять буквы в словах. Например, если я хочу изменить доллар на доллар, он не работает.
превосходный парень
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места