3 szybkie metody wyszukiwania tekstu tylko w tabelach słów

W tym artykule z przyjemnością pokażemy 3 szybkie sposoby znajdowania określonego tekstu tylko w tabelach programu Word.

Korzystając z wbudowanej funkcji programu Word „Znajdź i zamień”, można wyszukiwać i znajdować określony tekst w długim dokumencie. Jak widać, dotyczy to całego dokumentu. A może ograniczymy zakres wyszukiwania tylko do tabel programu Word? Czytaj dalej, aby zobaczyć szczegóły.

Metoda 1: Znajdź tekst w zaznaczeniu

1. Przede wszystkim ręcznie wybierz jedną lub więcej tabel w dokumencie.
2. Następnie kliknij przycisk rozwijany obok polecenia „Znajdź” na karcie „Strona główna”.
3. Wybierz „Szukanie zaawansowane”, aby otworzyć okno dialogowe „Znajdź i zamień”.
4. Wpisz szukany tekst w polu tekstowym „Znajdź co”.
5. Kliknij zakładkę „Znajdź w” i wybierz „Bieżący wybór”.  

Program Word znajdzie tylko wybrany tekst.

Metoda 2: Znajdź tekst w tabeli

Oprócz zwykłego sposobu możesz uruchomić makro, aby wykonać bardziej dostosowane zadania.

1. Po pierwsze, umieść kursor w tabeli, w której chcesz znaleźć tekst.
2. Następnie naciśnij „Alt + F11”, aby otworzyć edytor VBA.
3. Kliknij „Normalne” w lewej kolumnie.
4. Następnie kliknij „Wstaw” i wybierz „Moduł”.
5. Następnie kliknij dwukrotnie moduł, aby go otworzyć.
6. Wklej następujące kody do modułu:

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. Na koniec kliknij „Uruchom”. Wprowadź tekst w polu wprowadzania i kliknij „OK”, aby kontynuować.

Metoda 3: Znajdź tekst we wszystkich tabelach w dokumencie

1. Pierwszy i pierwszyost, powtórz kroki w metodzie 2, aby zainstalować i uruchomić makro.
2. Następnie zamień to makro na to:

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. Podobnie wpisz wyszukiwany tekst w polu wprowadzania. I kliknij „OK”, aby kontynuować.

Uratuj swoje dane na czas

Po uzyskaniu zagrożonych danych należy pamiętać, że można je odzyskać. Dlatego nigdy się nie poddawaj, zanim spróbujesz. W takich okolicznościach musisz sprawdzić najnowszą kopię zapasową, jeśli taka istnieje. Istnieje duża szansa na odzyskanie części danych. Poza tym zawsze możesz się uciec poprawka doc narzędzie do odzyskiwania danych.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com