3 efektivní způsoby procházení podle textového pole v dokumentu Word

V tomto článku vám rádi ukážeme 3 účinné způsoby procházení podle textového pole v dokumentu Word.

V aplikaci Word existuje příkaz „Vybrat procházený objekt“, který umožňuje procházet pouze vybrané objekty. Můžete například zvolit procházení podle tabulky nebo stránky. Bohužel neexistuje žádná vestavěná funkce pro procházení textovým polem. Proto vám poskytneme 3 způsoby, jak toho dosáhnout.

Metoda 1: Použijte klávesu „Tab“

1. Nejprve stiskněte klávesy „Ctrl+Home“ pro přechod na začátek dokumentu.
2. Poté najděte první textové pole a klikněte na něj.
3. Poté stisknutím klávesy „Tab“ přeskočíte na další textové pole.

Mimochodem, tímto způsobem v dokumentu najdete také tvary a obrázky.

Metoda 2: Spuštění makra pro přechod z jednoho textového pole do druhého

1. Nejprve stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA ve Wordu.
2. Dále klikněte na „Normální“.
3. Poté klikněte na „Vložit“ a v rozbalovací nabídce vyberte „Modul“.
4. Otevřete nový modul dvojitým kliknutím.
5. Nyní v oblasti kódování vložte následující 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. Kódy spustíte kliknutím na tlačítko „Spustit“ na řádku nabídek nebo stisknutím klávesy „F5“.

Jakmile spustíte makro, zobrazí se okno se zprávou, například takto:

Na poli se zobrazí obsah aktuálně vybraného textového pole. Kliknutím na tlačítko „Ano“ ji zastavíte, pokud je to vaše požadované textové pole. Jinak klikněte na „Ne“ a přejděte do dalšího textového pole.

Metoda 3: Najděte konkrétní textové pole

Pokud nastavíte nadpis pro textové pole v dokumentu, můžete jej v kombinaci s níže uvedeným makrem použít k okamžitému vyhledání.

1. Nejprve si přečtěte kroky v metodě 2 instalace a spuštění makra.
2. Pak nezapomeňte nahradit 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. Dále do zobrazeného vstupního pole zadejte název textového pole, které chcete najít, a klikněte na tlačítko „OK“ pro pokračování. Cílové textové pole se zobrazí ve výběru.

Vyrovnejte se se ztrátou dat

Vzhledem k tomu, že Word je jedním z nejpoužívanějších softwarů, je nutné znát několik triků, jakmile Word přestane reagovat. Důležité zkorumpovaný dokument, vaše jediná volba je obnovit to. K tomu musíte pečlivě vybrat nástroj třetí strany, kterému můžete důvěřovat.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkorumpovaný xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com