在 Word 文档中按文本框浏览的 3 种有效方法

在本文中，我们很高兴向您展示 3 种在 Word 文档中通过文本框浏览的有效方法。

Word 中有“选择浏览对象”命令，使您可以只浏览您选择的对象。 例如，您可以选择按表格或页面浏览。 不幸的是，没有内置的文本框浏览功能。 因此，我们将为您提供 3 种方法。

方法一：使用“Tab”键

1. 首先，按“Ctrl+Home”键跳转到文档开头。
2. 然后找到并单击第一个文本框。
3. 接下来按“Tab”跳转到下一个文本框。

顺便说一句，这种方式也会在文档中找到你的形状和图像。

方法 2：运行宏以从一个文本框跳转到另一个文本框

1. 首先，按下“Alt+F11”键即可在 Word 中启动 VBA 编辑器。
2. 接下来点击“正常”。
3. 然后单击“插入”并在其下拉菜单中选择“模块”。
4. 双击打开新模块。
5. 现在在编码区域，粘贴以下代码：

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. 单击菜单栏上的“运行”按钮或按“F5”执行代码。

宏开始运行后，会弹出一个消息框，如下所示：

On box 显示当前选中的文本框中的内容。 如果它是您想要的文本框，您可以单击“是”停止它。 否则，单击“否”转到下一个文本框。

方法三：查找特定的文本框

如果您在文档中为文本框设置了标题，您可以将它与下面的宏结合使用以立即定位它。

1. 首先参照方法二的步骤安装并运行宏。
2. 然后记得用这个替换宏：

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. 接下来，在弹出的输入框中输入要查找的文本框的标题，然后单击“确定”继续。您将在选中列表中找到目标文本框。

应对数据丢失

鉴于 Word 是最常用的软件之一，因此了解一些 Word 停止响应时的应对技巧是很有必要的。对于重要事项 腐败文件，您唯一的选择就是恢复它。 为此，您需要谨慎选择可以信任的第三方工具。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的 xlsx 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com