このpでost、私たちの焦点は、2つのWord文書で複数のアイテムを同時に見つけるXNUMXつの簡単な方法を示すことにあります。
Wordに精通している人は、「検索と置換」オプションをよく知っている必要があります。 検索テキストが連続した文字列である場合にうまく機能します。 しかし、残念ながら、複数の別々の単語を同時に検索したい場合は複雑になります。 そして、そこには、XNUMXつのドキュメント内の単語やフレーズのリストを一度に削除することが強く求められています。 たとえば、編集者の場合、どのドキュメントにも表示されるべきではない単語がいくつかある可能性があります。 その場合、特定の単語の出現をマークするための回避策が必要になります。
利用可能な2つのソリューションは次のとおりです。
方法1:単語を除外辞書にインポートする
単語またはフレーズの束をWordの除外辞書に追加すると、一致した単語の下に赤い波線が表示され、それらにフラグが付けられます。
除外辞書に単語を追加するための詳細な手順は、次の記事にあります。 単語のスペルと文法チェッカーのための4つの便利なヒント
方法2:Wordマクロを使用する
- まず第一にost、検索するすべての単語をXNUMXつのドキュメントに入れます。 各単語またはフレーズはXNUMX段落を占める必要があります。 ここでは「リストドキュメント」と呼びましょう。 ドキュメントを保存します。

- 次に、「開発者」タブをクリックします。
- 次に、「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文書を保護する
それらの中の一つost Word文書の破損を防ぐための一般的な対策は、バックアップを取ることです。 彼らはあなたが持っているときにあなたに安心を提供することができます 破損したdocx。 ですから、今すぐ重要なファイルをバックアップしてください。
著者紹介:
Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxlsx and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com


![コードを貼り付け-> [実行]をクリックします コードを貼り付け-> [実行]をクリックします](https://www.datanumen.com/blogs/wp-content/uploads/2017/03/Paste-codes-then-Click-Run-1.jpg)

