僅在 Word 表格中查找文本的 3 種快速方法

在本文中，我們很高興向您展示 3 種僅在 Word 表格中查找特定文本的快速方法。

利用 Word 的內置功能“查找和替換”，您可以在長文檔中搜索和查找特定文本。 如您所見，這是基於整個文檔。 我們將搜索範圍限制為僅 Word 表格怎麼樣？ 請繼續閱讀以查看詳細信息。

方法 1：在選擇中查找文本

1. 首先，手動選擇文檔中的一個或多個表。
2. 然後單擊“主頁”選項卡下“查找”命令旁邊的下拉按鈕。
3. 選擇“高級查找”，打開“查找和替換”對話框。
4. 在“查找內容”文本框中輸入查找文本。
5. 單擊“查找範圍”選項卡，然後選擇“當前選擇”。  

Word 將僅在您的選擇中查找文本。

方法 2：在表格中查找文本

除了通常的方式，您還可以選擇運行宏來執行更多自定義任務。

1. 首先，將光標放在要查找文本的表格中。
2. 然後按“ Alt + F11”打開VBA編輯器。
3. 單擊左側欄中的“正常”。
4. 然後單擊“插入”，然後選擇“模塊”。
5. 接下來雙擊模塊將其打開。
6. 將以下代碼粘貼到模塊中：

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. 最後點擊“運行”。 在輸入框中輸入文本，然後單擊“確定”繼續。

方法 3：在文檔中的所有表中查找文本

1. 第一和前ost, 重複方法 2 中的步驟以安裝和運行宏。
2. 接下來用這個替換那個宏：

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. 同樣，在輸入框中鍵入搜索文本。 然後單擊“確定”繼續。

及時搶救您的數據

一旦您獲得受損數據，請記住它們是可恢復的。 所以在嘗試之前永遠不要放棄。 在這種情況下，您需要檢查最新的備份（如果有）。 很有可能恢復您的一些數據。 此外，您可以隨時求助於 文檔修復 工具來恢復數據。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的XLS 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM