Paulは、別のドキュメントに含まれている単語リストと照合する必要があるドキュメントを持っています。チェック対象のドキュメントにリスト内の単語の1つが含まれている場合、ドキュメント内の単語(単語リストにはない)

太字にすることで強調する必要があります。単語リストは2万語程度と大きく、ポールはこれを行う最善の方法は何かと考えています。

続行するには2つの方法があります。 1つ目は、比較を行う独自のマクロを作成することです。チェックしたい単語をC:ドライブの「checklist.doc」という名前のドキュメントに入れると、次のマクロを使用できます。

Sub CompareWordList()

Dim sCheckDoc As String     Dim docRef As Document     Dim docCurrent As Document     Dim wrdRef As Object

sCheckDoc = "c:\checklist.doc"

Set docCurrent = Selection.Document     Set docRef = Documents.Open(sCheckDoc)

docCurrent.Activate

With Selection.Find         .ClearFormatting         .Replacement.ClearFormatting         .Replacement.Font.Bold = True         .Replacement.Text = "^&"

.Forward = True         .Format = True         .MatchWholeWord = True         .MatchCase = True         .MatchWildcards = False     End With

For Each wrdRef In docRef.Words         If Asc(Left(wrdRef, 1)) > 32 Then             With Selection.Find                 .Wrap = wdFindContinue                 .Text = wrdRef                 .Execute Replace:=wdReplaceAll             End With         End If     Next wrdRef

docRef.Close     docCurrent.Activate End Sub

チェックするドキュメントを開いてから、マクロを実行するだけです。チェックする単語を含むドキュメントの名前が異なる場合、または場所が異なる場合は、sCheckDocを設定する行を変更して、ドキュメントのフルパス名が異なるようにします。

基本的に、マクロは単語リストから各単語を取得し、ドキュメント内のその単語を使用して検索と置換操作を実行します。単語リストに非常に多くの単語がある場合、マクロの実行にはかなりの時間がかかる可能性があります。20,000回の検索と置換操作はかなりの数です。

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(1173)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス: