3 rýchle metódy na vyhľadanie textu iba v tabuľkách slov

V tomto článku sme radi, že vám ukážeme 3 rýchle spôsoby, ako vyhľadať konkrétny text iba v tabuľkách Wordu.

Pomocou integrovanej funkcie „Nájsť a nahradiť“ v programe Word môžete vyhľadať a nájsť konkrétny text v dlhom dokumente. Ako vidíte, vychádza to z celého dokumentu. Čo tak obmedziť rozsah vyhľadávania iba na tabuľky Wordu? Čítajte ďalej a pozrite si podrobnosti.

Metóda 1: Vyhľadanie textu vo výbere

1. Najskôr ručne vyberte jednu alebo viac tabuliek v dokumente.
2. Potom kliknite na rozbaľovacie tlačidlo vedľa príkazu „Nájsť“ na karte „Domov“.
3. Kliknutím na tlačidlo „Rozšírené hľadanie“ otvoríte dialógové okno „Nájsť a nahradiť“.
4. Zadajte hľadaný text do textového poľa „Nájsť čo“.
5. Kliknite na kartu „Nájsť v“ a vyberte „Aktuálny výber“.  

Word vyhľadá text iba vo vašom výbere.

Metóda 2: Vyhľadanie textu v tabuľke

Okrem obvyklého spôsobu môžete zvoliť spustenie makra na vykonávanie viac prispôsobených úloh.

1. Najskôr umiestnite kurzor do tabuľky, kde chcete nájsť text.
2. Potom stlačte kombináciu klávesov „Alt + F11“ a otvorte editor VBA.
3. Kliknite na „Normálne“ v ľavom stĺpci.
4. Potom kliknite na „Vložiť“ a zvoľte „Modul“.
5. Ďalej dvojitým kliknutím otvorte modul.
6. Vložte nasledujúce 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. Nakoniec kliknite na tlačidlo „Spustiť“. Zadajte text do vstupného poľa a pokračujte kliknutím na „OK“.

Metóda 3: Vyhľadanie textu vo všetkých tabuľkách v dokumente

1. V prvom rade zopakujte kroky v metóde 2, aby ste nainštalovali a spustili makro.
2. Ďalej nahraďte dané 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. Podobne zadajte hľadaný text do vstupného poľa. Pokračujte kliknutím na tlačidlo „OK“.

Zachráňte svoje údaje včas

Len čo získate napadnuté údaje, nezabudnite, že sú obnoviteľné. Takže sa nikdy nevzdávajte, kým to neskúsite. Za takýchto okolností musíte skontrolovať svoju najnovšiu zálohu, ak existuje. Existuje veľká šanca na vrátenie niektorých vašich údajov. Okrem toho sa vždy môžete uchýliť k doc opraviť nástroj na obnovenie údajov.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodené xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S