3 rychlé metody pro vyhledání textu pouze v tabulkách aplikace Word

V tomto článku vám rádi ukážeme 3 rychlé způsoby, jak najít konkrétní text pouze v tabulkách aplikace Word.

Pomocí integrované funkce „Najít a nahradit“ v aplikaci Word můžete vyhledat a najít konkrétní text v dlouhém dokumentu. Jak vidíte, vychází to z celého dokumentu. Co kdybychom omezili rozsah hledání pouze na tabulky Wordu? Přečtěte si další informace.

Metoda 1: Najít text ve výběru

1. Nejprve ručně vyberte jednu nebo více tabulek v dokumentu.
2. Poté klikněte na rozevírací tlačítko vedle příkazu „Najít“ na kartě „Domů“.
3. Zvolte „Pokročilé hledání“ a otevřete dialogové okno „Najít a nahradit“.
4. Do textového pole „Najít co“ zadejte hledaný text.
5. Klikněte na záložku „Najít“ a vyberte „Aktuální výběr“.  

Word najde text pouze ve vašem výběru.

Metoda 2: Najít text v tabulce

Kromě obvyklého způsobu můžete zvolit spuštění makra pro provádění více přizpůsobených úkolů.

1. Nejprve vložte kurzor do tabulky, kde chcete najít text.
2. Poté stiskněte „Alt + F11“ a otevřete editor VBA.
3. V levém sloupci klikněte na „Normální“.
4. Poté klikněte na „Vložit“ a vyberte „Modul“.
5. Poté modul poklepejte a otevřete jej.
6. Vložte následující kódy do modulu:

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. Nakonec klikněte na „Spustit“. Zadejte text do vstupního pole a pokračujte kliknutím na „OK“.

Metoda 3: Najít text ve všech tabulkách v dokumentu

1. V první řadě opakujte kroky v metodě 2 pro instalaci a spuštění makra.
2. Dále nahraďte toto makro tímto:

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. Podobně zadejte hledaný text do vstupního pole. Pokračujte kliknutím na „OK“.

Zachraňte svá data včas

Jakmile získáte kompromitovaná data, mějte na paměti, že jsou obnovitelná. Takže se nikdy nevzdávejte, než to zkusíte. Za takových okolností musíte zkontrolovat nejnovější zálohu, pokud existuje. Existuje velká šance, že budete mít některá svá data zpět. Kromě toho se můžete vždy uchýlit oprava dokumentu nástroj pro obnovení dat.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozené xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com