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

In this post, our focus is on exhibiting 2 quick ways to find multiple items in one Word document at the same time.

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

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

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

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

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

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

1. First and foremost, put all words you want to search in one document. Each words or phrase should occupy one paragraph. Here let’s call it “list document”. Save the document.
2. Во-вторых, нажмите вкладку «Разработчик».
3. Затем нажмите «Visual Basic», чтобы открыть редактор VBA. Альтернативный способ — нажать «Alt+F11».
4. Затем нажмите «Обычный», затем вкладку «Вставка».
5. И выберите «Модуль» в меню.
6. Дважды щелкните новый модуль, чтобы открыть область редактирования, и вставьте туда следующий макрос:

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

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

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

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

One of the most popular measures to prevent your Word documents from corrupted is to take backups. They can provide you with a peace of minds when you have a поврежденный документ. Так что не торопитесь, чтобы сделать резервную копию важных файлов прямо сейчас.

Об авторе:

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