3 hatékony módszer a szövegmezők szerinti böngészéshez a Word-dokumentumban

Ebben a cikkben örömmel mutatunk be 3 hatékony módot a Word-dokumentumban található szövegmezők szerinti böngészéshez.

A Wordben található a „Select Browse Object” parancs, amellyel csak a kiválasztott objektumok között böngészhet. Kiválaszthatja például a táblázat vagy oldal szerinti böngészést. Sajnos nincs beépített funkció a szövegdoboz szerinti böngészéshez. Ezért 3 módot kínálunk erre.

1. módszer: Használja a „Tab” billentyűt

1. Először is, nyomd meg a „Ctrl+Home” billentyűkombinációt a dokumentum elejére való ugráshoz.
2. Ezután keresse meg és kattintson az első szövegmezőre.
3. Ezután nyomja meg a „Tab” gombot, hogy a következő szövegmezőre ugorjon.

Mellesleg, így alakzatokat és képeket is talál a dokumentumban.

2. módszer: Futtassa a Makrót az egyik szövegdobozból a másikba való ugráshoz

1. Először is, nyomd meg az „Alt+F11” billentyűkombinációt a VBA-szerkesztő elindításához a Wordben.
2. Ezután kattintson a „Normál” gombra.
3. Ezután kattintson a „Beszúrás” gombra, és válassza ki a „Modul” elemet a legördülő menüből.
4. Nyissa meg az új modult dupla kattintással.
5. Most a kódolási területen illessze be a következő kódokat:

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. Kattintson a „Futtatás” gombra a menüsorban, vagy nyomja meg az „F5” gombot a kódok végrehajtásához.

A makró futtatásának megkezdése után egy üzenetablak jelenik meg, például az alábbi:

A dobozon az aktuálisan kiválasztott szövegmező tartalma látható. Az „Igen” gombra kattintva leállíthatja, ha ez a kívánt szövegmező. Ellenkező esetben kattintson a „Nem” gombra, hogy a következő szövegmezőre lépjen.

3. módszer: Keressen egy adott szövegdobozt

Ha beállítja a szövegdoboz címét a dokumentumban, akkor azt a bömbölő makróval együtt használhatja az azonnali megtaláláshoz.

1. Először is tekintse meg a 2. módszer lépéseit a makró telepítéséhez és futtatásához.
2. Ezután ne felejtse el lecserélni a makrót erre:

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. Ezután a megjelenő beviteli mezőbe írja be a keresendő szövegmező címét, majd kattintson az „OK” gombra a folytatáshoz. A cél szövegmező a kijelölt helyen található.

Megbirkózni az adatvesztéssel

Tekintettel arra, hogy a Word az egyik leggyakrabban használt szoftver, fontos ismerni néhány trükköt, ha a Word nem reagál. Fontos információkért... korrupt doki, az egyetlen választása az, hogy visszaállítja. Ehhez pedig gondosan ki kell választania egy harmadik féltől származó eszközt, amelyben megbízhat.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült xlsx és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com