在Word文檔中按文本框瀏覽的3種有效方法

在本文中，我們很高興向您展示在Word文檔中按文本框瀏覽的3種有效方法。

Word中有“選擇瀏覽對象”命令，使您可以僅瀏覽所選對象。 例如，您可以選擇按表或頁面瀏覽。 不幸的是，沒有用於按文本框瀏覽的內置功能。 因此，我們將為您提供3種方式。

方法1：使用“製表符”鍵

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”以執行代碼。

巨集開始運行後，會彈出一個訊息框，如下所示：

在框上顯示當前所選文本框中的內容。 如果是所需的文本框，則可以單擊“是”在其上停止。 否則，單擊“否”轉到下一個文本框。

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

如果您為文檔中的文本框設置標題，則可以將其與下面的宏結合使用以立即定位它。

1. 首先，請參考方法2中的步驟來安裝和運行宏。
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