3 efektívne spôsoby prehľadávania podľa textového poľa v dokumente programu Word

V tomto článku sme radi, že vám ukážeme 3 efektívne spôsoby prehľadávania podľa textového poľa v dokumente Word.

V programe Word je príkaz „Vybrať prehľadávať objekt“, ktorý vám umožňuje prehľadávať iba vybrané objekty. Môžete si napríklad zvoliť prehliadanie podľa tabuľky alebo stránky. Bohužiaľ neexistuje žiadna zabudovaná funkcia na prehliadanie podľa textového poľa. Preto vám poskytneme 3 spôsoby, ako to urobiť.

Metóda 1: Použite kláves „Tab“

1. Najprv stlačte klávesy „Ctrl + Home“, čím sa presuniete na začiatok dokumentu.
2. Potom vyhľadajte a kliknite na prvé textové pole.
3. Ďalej stlačte kláves „Tab“ a preskočte na ďalšie textové pole.

Mimochodom, týmto spôsobom vás tiež v dokumente nájde tvary a obrázky.

Metóda 2: Spustenie makra na prechod z jedného textového poľa na druhé

1. V prvom rade stlačte klávesy „Alt + F11“, čím spustíte editor VBA vo Worde.
2. Ďalej kliknite na „Normálny“.
3. Potom kliknite na „Vložiť“ a v rozbaľovacej ponuke zvoľte „Modul“.
4. Nový modul otvoríte dvojitým kliknutím.
5. Teraz do oblasti kódovania vložte nasledujúce kódy:

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. Kliknutím na tlačidlo „Spustiť“ na paneli ponúk alebo stlačením klávesu „F5“ spustíte kódy.

Po spustení makra sa zobrazí okno s hlásením, ako napríklad nižšie:

Na poli sa zobrazuje obsah v aktuálne vybratom textovom poli. Kliknutím na tlačidlo „Áno“ ju zastavíte, ak je to požadované textové pole. V opačnom prípade kliknutím na „Nie“ prejdete na ďalšie textové pole.

Metóda 3: Vyhľadajte konkrétne textové pole

Ak v dokumente nastavíte nadpis pre textové pole, môžete ho v kombinácii s nasledujúcim makrom použiť na jeho okamžité vyhľadanie.

1. Najskôr si prečítajte kroky v metóde 2 na inštaláciu a spustenie makra.
2. Potom nezabudnite nahradiť makro týmto:

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

3. Ďalej do zobrazeného vstupného poľa zadajte názov textového poľa, ktoré sa má nájsť, a kliknite na tlačidlo „OK“ pre pokračovanie. Cieľové textové pole sa zobrazí vo výbere.

Vyrovnajte sa so stratou dát

Vzhľadom na to, že Word je jedným z najpoužívanejších softvérov, je potrebné poznať niekoľko trikov, keď Word prestane reagovať. Pre dôležité skorumpovaný doc, jedinou tvojou voľbou je získať ho späť. Aby ste to dosiahli, musíte starostlivo zvoliť nástroj tretej strany, ktorému môžete dôverovať.

Ú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 skazený xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S