Rohanは、書くときに決して使用してはならない約100の「複雑な」単語のリストを含む手紙を書く新しい方法を使用している会社で働いています。彼は、リストにある単語のいずれかがドキュメントで使用されている場合に警告を受けるための最良の方法を探しています。

これを実現する方法はいくつかありますが、最適な選択は、個人的な好みに加えて、オフィスでの作業方法によって異なります。たとえば、単語を処理する簡単な方法の1つは、Wordが「除外」辞書と呼ぶものに単語を追加することです。基本的に、これは、特定の単語が常に間違ったスペルとしてマークされるように、スペルチェッカーによって使用されるファイルを変更する方法です。除外リストに100語を追加すると、それらは常にスペルが間違っているとマークされます。除外辞書に単語を追加する方法は、_WordTips._の他の問題で説明されています。ここで情報を見つけることができます:

http://word.tips.net/T001037

同様の情報は、http://word.mvps.org [Word MVPサイト](

)でも入手できます。

http://wordmvp.com/FAQs/General/ExcludeWordFromDic.htm

リストにアプローチするもう1つの方法は、単語ごとにオートコレクトエントリを作成することです。単語の1つを入力すると、その単語が使用されたという事実に注意を喚起する、目立つ形式の単語のバージョンに自動的に置き換えられる可能性があります。必要に応じて、単語をスペースに置き換えることもできます。これは、問題のある単語が入力されるたびに自動的に「消去」されることを意味します。

使用できるマクロアプローチもあります。これらは、主に、ドキュメントの開発のさまざまな時点で実行するのに役立ちます。マクロは、実行する必要があると判断したほぼすべてのことを実行できます。たとえば、実際に変更を加えることなく、ドキュメントで見つかった問題のある単語を収集し、見つかったことを通知するだけの場合があります。次のマクロはまさにそれを行います。

Sub DoNotUseList()

Dim Word As Range     Dim ForbiddenWords(2) As String     Dim ForbiddenWord As Variant     Dim BadList As String

' Populate array with forbidden words     ' Remember to modify the size of the array above     ForbiddenWords(0) = "cat"

ForbiddenWords(1) = "dog"

ForbiddenWords(2) = "mouse"



BadList = "The following forbidden words have been identified:"

For Each Word In ActiveDocument.Words         For Each ForbiddenWord In ForbiddenWords             If LCase(Trim(Word.Text)) = ForbiddenWord Then                 BadList = BadList & vbCrLf & ForbiddenWord             End If         Next     Next

MsgBox BadList, vbOKOnly, "Forbidden Words"

End Sub

禁止リストにある単語を変更するには、ForbiddenWords配列のサイズと内容を変更するだけです。配列の内容に大文字やフレーズが含まれていないことを確認する必要があります。マクロを実行すると、ドキュメント内の各単語が禁止されている各単語と照合され、見つかった場合は最後に通知されます。

このタイプの問題を処理する他の同様のマクロベースの方法は、WordTips:

の他の問題で提示されています。

http://word.tips.net/T000502

注:

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

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

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(521)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ: