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. Накрая щракнете върху „Изпълни“. Въведете текст в полето за въвеждане и щракнете върху „OK“, за да продължите.

Метод 3: Намерете текст във всички таблици в документ

1. Първо и най-важно, повторете стъпките от метод 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. По същия начин въведете текст за търсене в полето за въвеждане. И щракнете върху „OK“, за да продължите.

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

След като получите компрометирани данни, имайте предвид, че те могат да бъдат възстановени. Така че никога не се отказвайте, преди да опитате. При такива обстоятелства трябва да проверите последния си архив, ако има такъв. Има голям шанс да върнете част от вашите данни. Освен това винаги можете да прибегнете до корекция на документ инструмент за възстановяване на данни.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повредени xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com