Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


Найти и заменить несколько слов одновременно в 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 Кнопка.

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



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

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

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Конвертируйте файлы между Doc и Docx, Docx и PDF, коллекцией инструментов для общих преобразований и выбора и так далее ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    rishabh jain · 23 days ago
    will this work in office Excel 365
  • To post as a guest, your comment is unpublished.
    jaka1 · 3 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?