3 Effective Ways to Browse by Text Box in Your Word Document

In this article, we are glad to show you 3 effective ways to browse by text box in your Word document.

There is the “Select Browse Object” command in Word enabling you to browse only the objects you selected. For example, you can choose to browse by table or page. Unfortunately, there is no built-in function for browsing by text box. Therefore, we will provide you 3 ways to do so.

Method 1: Use “Tab” Key

1. Firstly, press “Ctrl+ Home” to go to the start of a document.
2. Then find and click on the first text box.
3. Next press “Tab” to jump to the next text box.

By the way, this way will also find you shapes and images in the document.

Method 2: Run Macro to Jump from One Text Box to Another

1. First and foremost, press “Alt+ F11” to trigger the VBA editor in Word.
2. Next click “Normal”.
3. Then click “Insert” and select “Module” on its drop-down menu.
4. Open the new module by double click.
5. Now in the coding area, paste following codes:

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. Click the “Run” button on the menu bar or hit “F5” to execute the codes.

Once you start running macro, there will be a message box popping up, such as below:

On the box shows the contents in the current selected text box. You can click “Yes” to stop on it if it’s your desired text box. Otherwise, click “No” to go to the next text box.

Method 3: Find a Specific Text Box

If you set title for text box in document, you can use it in combination with the bellowing macro to locate it immediately.

1. First of all, refer to steps in method 2 to install and run a macro.
2. Then remember to replace macro with this one:

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. Next in the input box prompting up, enter the title of the text box to be found and click “OK” to proceed. You shall find the target text box in selection.

Cope with Data Loss

Given to the fact that Word is one of the most used software, it’s necessary to know some tricks once Word stops responding. For important corrupt doc, your only choice is to recover it. And to do this, you need carefully choose a third-party tool you can trust.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupt xlsx and pdf repair software products. For more information visit www.datanumen.com