2つのWord文書で複数のアイテムを同時に見つけるXNUMXつの簡単な方法

ワードソリューション 2025 年 9 月 28 日

この記事では、Word文書内で複数の項目を同時に検索する2つの簡単な方法をご紹介します。

Wordに精通している人は、「検索と置換」オプションをよく知っている必要があります。検索テキストが連続した文字列である場合にうまく機能します。しかし、残念ながら、複数の別々の単語を同時に検索したい場合は複雑になります。そして、そこには、XNUMXつのドキュメント内の単語やフレーズのリストを一度に削除することが強く求められています。たとえば、編集者の場合、どのドキュメントにも表示されるべきではない単語がいくつかある可能性があります。その場合、特定の単語の出現をマークするための回避策が必要になります。

利用可能な2つのソリューションは次のとおりです。

方法1：単語を除外辞書にインポートする

単語またはフレーズの束をWordの除外辞書に追加すると、一致した単語の下に赤い波線が表示され、それらにフラグが付けられます。

除外辞書に単語を追加するための詳細な手順は、次の記事にあります。単語のスペルと文法チェッカーのための4つの便利なヒント

方法2：Wordマクロを使用する

まず最初に、検索したい単語をすべて1つの文書にまとめます。各単語またはフレーズは1つの段落に記述してください。ここでは、この文書を「リスト文書」と呼びましょう。文書を保存してください。
次に、「開発者」タブをクリックします。
次に、「VisualBasic」をクリックしてVBAエディタを開きます。別の方法は、「Alt + F11」を押すことです。
次に、「通常」をクリックしてから、「挿入」タブをクリックします。
そして、メニューから「モジュール」を選択します。
新しいモジュールをダブルクリックして編集領域を表示し、そこに次のマクロを貼り付けます。

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

最後に、「実行」をクリックします。
今、箱があります。保存したリストドキュメントのパスと名前を入力します。次に「OK」をクリックします。

次に表示されるのは、見つかったすべての単語が強調表示されていることです。

Word文書を保護する

Word文書の破損を防ぐ最も一般的な対策の1つはバックアップを取ることです。破損したdocx。ですから、今すぐ重要なファイルをバックアップしてください。

著者紹介：

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