3 быстрых метода поиска текста только в таблицах Word

В этой статье мы рады показать вам 3 быстрых способа найти определенный текст только в ваших таблицах Word.

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

Метод 1: найти текст в выделении

1. Прежде всего, вручную выберите одну или несколько таблиц в документе.
2. Затем нажмите кнопку раскрывающегося списка рядом с командой «Найти» на вкладке «Главная».
3. Выберите «Расширенный поиск», чтобы открыть диалоговое окно «Найти и заменить».
4. Введите поисковый текст в текстовое поле «Найти что».
5. Перейдите на вкладку «Найти в» и выберите «Текущий выбор».  

Word найдет текст только в вашем выделении.

Способ 2: найти текст в таблице

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

1. Во-первых, поместите курсор внутрь таблицы, где вы хотите найти текст.
2. Затем нажмите «Alt + F11», чтобы открыть редактор VBA.
3. Нажмите «Обычный» в левом столбце.
4. Затем нажмите «Вставить» и выберите «Модуль».
5. Затем дважды щелкните модуль, чтобы открыть его.
6. Вставьте следующие коды в модуль:

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

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

Способ 3: найти текст во всех таблицах документа

1. Первый и первыйost, повторите шаги в способе 2, чтобы установить и запустить макрос.
2. Затем замените этот макрос на этот:

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Точно так же введите искомый текст в поле ввода. И нажмите «ОК», чтобы продолжить.

Спасите свои данные вовремя

Получив скомпрометированные данные, помните, что их можно восстановить. Так что никогда не сдавайтесь, не попробовав. В таких обстоятельствах вам необходимо проверить последнюю резервную копию, если таковая имеется. Есть хороший шанс вернуть часть ваших данных. Кроме того, вы всегда можете прибегнуть к исправление документа инструмент для восстановления данных.

Об авторе:

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