2 быстрых способа найти несколько элементов в одном документе Word одновременно

Словесные решения 28 сентября, 2025

В этом пost, мы сосредоточены на демонстрации двух быстрых способов одновременного поиска нескольких элементов в одном документе Word.

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

Здесь доступны 2 решения:

Способ 1: импортировать слова в словарь исключений

Добавьте несколько слов или фраз в словарь исключений в Word, после чего под совпадающими словами появится красная волнистая линия, чтобы пометить их.

Подробные шаги по добавлению слов в словарь исключений описаны в этой статье: 4 полезных совета по проверке орфографии и грамматики слов

Способ 2: использовать макрос Word

Первый и первыйost, поместите все слова, которые вы хотите найти, в один документ. Каждое слово или фраза должны занимать один абзац. Здесь давайте назовем это «список документов». Сохраните документ.
Во-вторых, нажмите вкладку «Разработчик».
Затем нажмите «Visual Basic», чтобы открыть редактор VBA. Альтернативный способ — нажать «Alt+F11».
Затем нажмите «Обычный», затем вкладку «Вставка».
И выберите «Модуль» в меню.
Дважды щелкните новый модуль, чтобы открыть область редактирования, и вставьте туда следующий макрос:

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

Наконец, нажмите «Выполнить».
Теперь есть коробка. Введите путь и имя документа списка, который вы только что сохранили. Затем нажмите «ОК».

Следующее, что вы увидите, это то, что все найденные слова выделены цветом.

Защитите свои документы Word

Один из нихost популярные меры по предотвращению повреждения ваших документов Word — это создание резервных копий. Они могут обеспечить вам душевное спокойствие, когда у вас есть поврежденный документ. Так что не торопитесь, чтобы сделать резервную копию важных файлов прямо сейчас.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com