Wordのマクロで…

質問

Excelでは、A1のセルに長文を入力して、A2のセルにキーワードを入力し、
「このキーワードが長文の中に含まれるか否か？」をチェックするには

=IF(COUNTIF(A1,"*"&A2&"*"),"○","×")

のような式で答えが得られます。

ところで、Wordの場合、何らかの方法で文章のエリアを設定し、
（段落単位でもテキストボックスでも何でも構わないのですが）
そのエリア内に入力した文章に、任意のキーワードが含まれるかどうか？
をチェックするような、マクロを組むことはできるでしょうか？

複数のキーワードを含めなくてはならない長文を書くことが多く、
ついついキーワードもれをやってしまうので、そういうフォーマットが
作れたら便利だと思うのですが…

いまはエクセルで、冒頭のような形でチェックしていますが、
やはり文章入力そのものはWordの方が入力しやすいので、
Wordで一発でできると助かると思うのですが…

どなたか、よい知恵を授けてください。

回答No.2

misatoanna · ベストアンサー

#1:misatoanna です。

特定のテキストボックスに入力したキーワードを参照してチェックするように
します。

テキストボックスをひとつ作成し、その名前を適当に変更します。
ここでは、とりあえず TBox という名前にしましょう。
↓
前回の回答の
Selection.MoveEndUntil Cset:=vbCr
の行の前に、次の３行を挿入します。
------------
　Dim txt As String
　txt = ActiveDocument.Shapes("TBox").TextFrame.TextRange.Text
　txt = Replace(txt, vbCr, "")
↓
前回の回答の
　.Find.Execute Findtext:="検索語", Format:=False
の部分を
　.Find.Execute Findtext:=txt, Format:=False
にします。

お礼

ありがとうございます！
こんなに早急に、適格にご対応くださいまして心よりお礼を申し上げます。

回答No.1

misatoanna

このような内容でしょうか。

カーソル位置から改行マークまで(段落内)で検索。
----------
Sub Test()
　Selection.MoveEndUntil Cset:=vbCr
　With Selection
　　.Find.Execute Findtext:="検索語", Format:=False
　　Select Case .Find.Found
　　　Case True: MsgBox "○"
　　　Case False: MsgBox "×"
　　End Select
　End With
End Sub

テキストボックス内全体を検索する場合は、ボックスそのものを選択した状態で
実行します。

お礼

ありがとうございます！

ただ、このマクロだと「検索語」が変わるたびにマクロを編集しなくてはなりませんね。

たとえば、特定のテキストボックスを別に作って、そこに放り込んだキーワードを参照してチェックするといったような場合はどうしたらよろしいでしょうか？

キーワード用のテキストボックスに入力した文字列を変数として取り込むようにする、といった処理が必要になるでしょうか？