3 kiiret meetodit teksti leidmiseks ainult oma sõnatabelitest

Selles artiklis on meil hea meel näidata teile 3 kiiret viisi konkreetse teksti leidmiseks ainult Wordi tabelitest.

Kasutades Wordi sisseehitatud funktsiooni Otsi ja asenda, saate otsida ja leida pikast dokumendist konkreetset teksti. Nagu näete, põhineb see kogu dokumendil. Kuidas oleks, kui piiraksime otsinguvahemiku ainult Wordi tabelitega? Üksikasjade nägemiseks lugege edasi.

1. meetod: leidke valikust tekst

1. Kõigepealt valige dokumendis käsitsi üks või mitu tabelit.
2. Seejärel klõpsake vahekaardil "Kodu" käsu "Leia" kõrval olevat rippmenüü nuppu.
3. Dialoogiboksi "Otsi ja asenda" avamiseks valige "Täpsem otsing".
4. Sisestage otsingutekst tekstiväljale „Leia mida”.
5. Klõpsake vahekaarti "Otsi" ja valige "Praegune valik".  

Word leiab teksti ainult teie valikust.

2. meetod: otsige tabelist tekst

Lisaks tavapärasele viisile saate rohkem kohandatud toimingute tegemiseks käivitada makro.

1. Kõigepealt asetage kursor tabeli sisse, kust soovite teksti leida.
2. Seejärel vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
3. Klõpsake vasakpoolses veerus "Tavaline".
4. Seejärel klõpsake nuppu "Sisesta" ja valige "Moodul".
5. Järgmisena topeltklõpsake moodulil selle avamiseks.
6. Kleepige moodulisse järgmised koodid:

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. Lõpuks klõpsake nuppu "Käivita". Sisestage sisestuskasti tekst ja klõpsake jätkamiseks "OK".

3. meetod: otsige teksti kõigist dokumendi tabelitest

1. Kõigepealt korrake 2. meetodi samme makro installimiseks ja käivitamiseks.
2. Järgmisena asendage see makro selle makroga:

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. Samamoodi tippige sisestuskasti otsitav tekst. Ja jätkamiseks klõpsake nuppu "OK".

Päästke oma andmed õigeaegselt

Kui olete saanud ohustatud andmeid, pidage meeles, et need on taastatavad. Nii et ärge kunagi loobuge enne proovimist. Sellistel juhtudel peate kontrollima oma viimast varukoopiat, kui see on olemas. On hea võimalus saada osa oma andmetest tagasi. Pealegi võite alati pöörduda doc parandada tööriist andmete taastamiseks.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud xls ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom