検索して、メッセージを表示したいです。

質問

全くの素人です。
下記のように文字を見つけたらメッセージで表示するようなプログラムを造りたいです。
使用はWordで考えています。
ただ、下記のプログラムを実行すると
(1)しかなくても(2)以下のメッセージも表示します。
(2)が無ければ、次の検索へ進むようにするにはどのようにすればよいですか？

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(1)"
Selection.Find.Execute
MsgBox "(1)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(2)"
Selection.Find.Execute
MsgBox "(2)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(3)"
Selection.Find.Execute
MsgBox "(3)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(4)"
Selection.Find.Execute
MsgBox "(4)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(5)"
Selection.Find.Execute
MsgBox "(5)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(6)"
Selection.Find.Execute
MsgBox "(6)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(7)"
Selection.Find.Execute
MsgBox "(7)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(8)"
Selection.Find.Execute
MsgBox "(8)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(9)"
Selection.Find.Execute
MsgBox "(9)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(10)"
Selection.Find.Execute
MsgBox "(10)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(11)"
Selection.Find.Execute
MsgBox "(11)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(12)"
Selection.Find.Execute
MsgBox "(12)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(13)"
Selection.Find.Execute
MsgBox "(13)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(14)"
Selection.Find.Execute
MsgBox "(14)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(15)"
Selection.Find.Execute
MsgBox "(15)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(16)"
Selection.Find.Execute
MsgBox "(16)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(17)"
Selection.Find.Execute
MsgBox "(17)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(18)"
Selection.Find.Execute
MsgBox "(18)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(19)"
Selection.Find.Execute
MsgBox "(19)は使用禁止文字です。変更してください"
End With

Selection.Find.ClearFormatting
With Selection.Find
.Text = "(20)"
Selection.Find.Execute
MsgBox "(20)は使用禁止文字です。変更してください"
End With

回答No.1

KenKen_SP · ベストアンサー

こんばんは。

> (1)しかなくても(2)以下のメッセージも表示します。

Execute は、検索条件に該当するものが

　　1.　見つかった場合　　　True
　　2.　見つからない場合　　False

を返します。Execute の結果が True のとき、つまり、不正な文字が
見つかった場合のみ MsgBox を表示するようすれば良いでしょう。
具体的には、

　　With Selection.Find
　　　　.ClearFormatting
　　　　.Text = "(1)"
　　　　If .Execute = True Then
　　　　　　MsgBox "(1)は使用禁止文字です。変更してください"
　　　　　　Exit Sub　' // ※
　　　　End If
　　End With

となります。

なお、ここで使われている Selection とは、プログラム実行時の
カーソル位置のようなモノのことですから、

　・プログラムの冒頭でカーソルを文書の先頭に戻すコードを入れる
　・手動でカーソルを文書の先頭に戻してからプログラムを実行する

などの対策が不可欠です。

そうでなければ、カーソル位置によって見つかったり見つからなかっ
たり...という事になりますのでご注意を。

> (2)が無ければ、次の検索へ進むようにするにはどのように...？

上述のコードにおいて、※記号の部分に注目して下さい。この質問は、

　　「見つかった場合は、検索を終了させる」

と言い換えることができます。プログラムを終了させるのは、

　　Exit Sub
　　End

などの命令です。両者の違いはヘルプで調べて下さい。

お礼

大成功です。
ありがとうございました！！