Word2007のマクロについて

質問

こんにちは。
Word2007のマクロについて質問させて下さい。

・タイトル行が(16738047)色で、本文が黒文字の日本語の文書があります。
・タイトル行内でキーワード検索を行いたいです。
・1個ずつ内容を確認したいので「次を検索」 MsgBoxを使用しています。

以下のコードを実行すると、単語が1個飛ばしに選択されてしまいます。
どこを変更すればいいでしょうか？
教えてください。よろしくお願いします。

Sub タイトル検索()
Dim myKW As String 'キーワード
myKW = InputBox("検索する文字を入力して下さい")
Selection.HomeKey Unit:=wdStory 'カーソルを文頭に移動

With Selection.Find
.ClearFormatting
.Font.Color = 16738047
.Text = myKW
.MatchWildcards = False
.MatchFuzzy = False

If Len(myKW) = 0 Then Exit Sub
If .Execute = True Then
Do While .Execute
If MsgBox("次を検索", vbokcansel, "確認") = vbOK Then
Selection.Find.Execute
End If
Loop
　　MsgBox "処理が終了しました。"
Else
MsgBox "文字はありませんでした。"
End If
End With

With Selection.Find ' 検索・置換のクリア
.ClearFormatting: .Replacement.ClearFormatting
.Text = "": .Replacement.Text = ""
.MatchWildcards = False: .MatchFuzzy = False
End With
End Sub

回答No.1

tsubu-yuki · ベストアンサー

ＶＢＥのステップイン（Ｆ８）は試してみましたか？
まぁ、コレだけ書ける方なのですから、
ステップインしていれば自力解決できていたのでは？
と思いますが・・・(笑)

とりあえずそうなる原因から。
Do ～ Loop の間に .Execute が２つあるのが原因です。
　　Do While .execute
で１回検索、
　　Selection.Find.Execute
でもう一回検索。
ってことで、一回のループで２回検索しちゃってるんですね。

なので、この Do をいじってやります。
　　Do
　　　　' ＯＫボタン以外が押されたらループから抜ける
　　　　If MsgBox("次を検索", vbOKCancel, "確認") <> vbOK Then
　　　　　　Exit Do
　　　　End If

　　　　' ＯＫが押されても、検索結果が無かったらループから抜ける
　　　　If .Execute = False Then
　　　　　　Exit Do
　　　　End If
　　Loop
こんな感じで。
Do ～ Loop に While も Until も無いジャン？無限ループジャン？
というのはご心配なく。
中にちゃんと「ループ終了条件」を入れているので問題なしです。
　　※というか、ほぼ終了条件しか無い書き方ですが(笑)
２つのＩＦは Or で纏めちゃってもよかったのですが、
一応、可読性重視で別々にしています。
お好みなら纏めちゃってください。

ステップインはデバッグの重要な手法です。
エラーは出ないけど思う処理をしない、なんて時には
まずはコレを試してみると何かが見えるかもしれません。
その時は、ＶＢＥとワード（エクセルでも同）を
「並べて表示」しておくことを忘れずに。
あ、Application.ScreenUpDating は True にしておきましょう。
じゃないと画面遷移が見えなくなっちゃいますからね。

お礼

添削ありがとうございました。
アドバイス通り、Do～Loop を変更しましたら、
「1個飛ばし」の症状がなくなりました。

マクロはまだ勉強中の身でして、
あっちこっちで壁にぶち当たっております。
失敗も多いですが、一度マクロの恩恵にあずかると、
もう以前の手作業には戻れません。

ステップインは、まだ使った事がないので、
これを機会に勉強したいと思います。
この度はありがとうございました。