3 ātras metodes, kā atrast tekstu tikai Word tabulās

Šajā rakstā mēs priecājamies parādīt 3 ātrus veidus, kā atrast konkrētu tekstu tikai Word tabulās.

Izmantojot Word iebūvēto funkciju “Atrast un aizstāt”, jūs varat meklēt un atrast konkrētu tekstu garā dokumentā. Kā redzat, tas ir balstīts uz visu dokumentu. Kā būtu, ja meklēšanas diapazonu ierobežotu tikai ar Word tabulām? Lasiet tālāk, lai redzētu sīkāku informāciju.

1. metode: Atrodiet tekstu atlasē

1. Pirmkārt, manuāli atlasiet vienu vai vairākas tabulas dokumentā.
2. Pēc tam cilnē Sākums noklikšķiniet uz nolaižamās pogas blakus komandai Atrast.
3. Izvēlieties “Advanced Find”, lai atvērtu dialoglodziņu “Find and Replace”.
4. Teksta lodziņā “Atrast ko” ievadiet atrašanas tekstu.
5. Noklikšķiniet uz cilnes “Atrast” un izvēlieties “Pašreizējā atlase”.  

Word atradīs tekstu tikai jūsu atlasē.

2. metode: atrodiet tekstu tabulā

Papildus parastajam veidam varat izvēlēties palaist makro, lai veiktu vairāk pielāgotus uzdevumus.

1. Vispirms ievietojiet kursoru tabulas iekšpusē, kur vēlaties atrast tekstu.
2. Pēc tam nospiediet “Alt + F11”, lai atvērtu VBA redaktoru.
3. Kreisajā kolonnā noklikšķiniet uz “Normal”.
4. Pēc tam noklikšķiniet uz “Ievietot” un izvēlieties “Modulis”.
5. Pēc tam veiciet dubultklikšķi uz moduļa, lai to atvērtu.
6. Ielīmējiet modulī šādus kodus:

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. Visbeidzot, noklikšķiniet uz “Palaist”. Ievadiet tekstu ievades lodziņā un noklikšķiniet uz “Labi”, lai turpinātu.

3. metode: atrodiet tekstu visās dokumenta tabulās

1. Pirmkārt un galvenokārt, atkārtojiet 2. metodē minētās darbības, lai instalētu un palaistu makro.
2. Pēc tam aizstājiet šo makro ar šo:

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. Tāpat ievades lodziņā ierakstiet meklēšanas tekstu. Lai turpinātu, noklikšķiniet uz Labi.

Savlaicīgi glābiet savus datus

Kad esat ieguvis apdraudētus datus, paturiet prātā, ka tos var atgūt. Tāpēc nekad nepadodieties, pirms mēģināt. Šādos apstākļos jums jāpārbauda jaunākā dublējumkopija, ja tāda ir. Ir lielas iespējas atgūt dažus datus. Turklāt jūs vienmēr varat izmantot doc labot rīks datu atgūšanai.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāti xls un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar