3 metoda të shpejta për të gjetur tekst vetëm në tabelat tuaja të fjalëve

Në këtë artikull, ne jemi të lumtur t'ju tregojmë 3 mënyra të shpejta për të gjetur tekst specifik vetëm në tabelat tuaja Word.

Duke përdorur funksionin "Gjeni dhe zëvendësoni", një funksion i integruar në Word, mund të kërkoni dhe gjeni një tekst specifik në një dokument të gjatë. Siç e shihni, kjo bazohet në të gjithë dokumentin. Po ta kufizojmë gamën e kërkimit vetëm në tabelat e Word-it? Lexoni për të parë detajet.

Metoda 1: Gjeni tekstin në përzgjedhje

1. Para së gjithash, zgjidhni manualisht një ose më shumë tabela në dokument.
2. Pastaj klikoni butonin drop-down pranë komandës "Gjeni" nën skedën "Home".
3. Zgjidhni "Gjeni i avancuar" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
4. Futni tekstin e gjetjes në kutinë e tekstit "Gjeni çfarë".
5. Klikoni në skedën "Gjeni në" dhe zgjidhni "Përzgjedhja aktuale".  

Word do të gjejë tekst vetëm në përzgjedhjen tuaj.

Metoda 2: Gjeni tekstin në një tabelë

Përveç mënyrës së zakonshme, mund të zgjidhni të ekzekutoni makro për të bërë detyra më të personalizuara.

1. Fillimisht, vendosni kursorin brenda një tabele ku dëshironi të gjeni tekst.
2. Më pas shtypni “Alt+ F11” për të hapur redaktorin VBA.
3. Klikoni "Normal" në kolonën e majtë.
4. Pastaj klikoni "Insert" dhe zgjidhni "Module".
5. Pastaj klikoni dy herë modulin për ta hapur atë.
6. Ngjitni kodet e mëposhtme në modul:

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. Së fundi, klikoni "Run". Futni një tekst brenda kutisë së hyrjes dhe klikoni "OK" për të vazhduar.

Metoda 3: Gjeni tekstin në të gjitha tabelat në një dokument

1. Para së gjithash, përsëritni hapat në metodën 2 për të instaluar dhe ekzekutuar një makro.
2. Zëvendësoni më pas atë makro me këtë:

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. Në mënyrë të ngjashme, shkruani tekstin e kërkimit brenda kutisë së hyrjes. Dhe klikoni "OK" për të vazhduar.

Shpëtoni të dhënat tuaja në kohë

Pasi të merrni të dhëna të komprometuara, mbani në mend se ato janë të rikuperueshme. Pra, mos u dorëzoni përpara se të provoni. Në rrethana të tilla, duhet të kontrolloni kopjen rezervë të fundit, nëse ka. Ekziston një shans i mirë për të rikthyer disa nga të dhënat tuaja. Për më tepër, gjithmonë mund t'i drejtoheni doc fix mjet për të rikuperuar të dhënat.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xls i dëmtuar pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com