単語テーブルのみでテキストを検索する3つの簡単な方法

この記事では、Wordテーブルのみで特定のテキストを見つける3つの簡単な方法を紹介します。

Wordの組み込み機能である「検索と置換」を利用して、長いドキュメント内の特定のテキストを検索して見つけることができます。 ご覧のとおり、これはドキュメント全体に基づいています。 検索範囲をWordテーブルのみに制限するのはどうですか？ 詳細を確認するために読んでください。

方法1：選択範囲内のテキストを検索する

1. まず、ドキュメント内のXNUMXつ以上のテーブルを手動で選択します。
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. 最後に、「実行」をクリックします。 入力ボックス内にテキストを入力し、「OK」をクリックして続行します。

方法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. 同様に、入力ボックス内に検索テキストを入力します。 そして、「OK」をクリックして続行します。

時間内にデータを救出する

侵害されたデータを取得したら、それらは回復可能であることに注意してください。 だから、試す前に決してあきらめないでください。 このような状況では、最新のバックアップがある場合はそれを確認する必要があります。 データの一部を取り戻す良いチャンスがあります。 その上、あなたはいつでも頼ることができます ドキュメントの修正 データを回復するためのツール。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxls and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com