いつもお世話になっております。
Word VBAでFind.Excuteを使用したワイルドカードの検索マクロを作成しようとしているのですが、
表のセル内最後の文字列や改行前に検索対象がある場合に、期待する検出ができません。
◆作成マクロ(ワイルドカード)
Sub find_test_wd()<br><br><br> Dim SRC_str As String <br><br> Dim CHK_str As String <br><br> Dim rng As Range <br><br> Dim cm As Comment <br><br> <br><br> SRC_str = "サーバ[!ー]" <br><br> CHK_str = "「" & SRC_str & "」を検出"<br><br><br> Set rng = ActiveDocument.Content <br><br> rng.Find.Text = SRC_str <br><br> <br><br> Do While rng.Find.Execute(MatchWildcards:=True) = True <br><br> <br><br> Set cm = rng.Comments.Add(Range:=rng, Text:=CHK_str) <br><br> cm.Author = "検索テスト" <br><br> cm.Initial = "検索" <br><br> <br><br> Loop <br><br> <br><br>End Sub◆結果例

※期待以外の動作
・表のセル内最後に検出対象がある場合、検出されていない
(表の1列目1-2行目など。1列目3行目のように後ろに改行が入ると検出される。
表直下の文字列「※は検証サーバ」と同様検出できるようにしたいです。)
・(表内外に関わらず)改行前に検出対象がある場合、二重に検出されてしまう
(コメント3・4、5・6)
ワイルドカードを使用していない場合は、検出対象がセル内最後にあっても検出できており、また重複もないので、同じことができるようにしたいです。
◆作成マクロ(ワイルドカード使用なし)
Sub find_test()<br><br><br> Dim SRC_str As String <br><br> Dim CHK_str As String <br><br> Dim rng As Range <br><br> Dim cm As Comment <br><br> <br><br> SRC_str = "サーバ" <br><br> CHK_str = "「" & SRC_str & "」を検出"<br><br><br> Set rng = ActiveDocument.Content <br><br> rng.Find.Text = SRC_str <br><br> <br><br> Do While rng.Find.Execute = True <br><br> <br><br> Set cm = rng.Comments.Add(Range:=rng, Text:=CHK_str) <br><br> cm.Author = "検索テスト" <br><br> cm.Initial = "検索" <br><br> <br><br> Loop <br><br> <br><br>End Sub◆結果例(検出もれ・重複検出なし)

指定文字列の指定やマクロの書き方に問題があるのでしょうか?
修正方法や、回避策があれば教えていただきたいです・・・。
宜しくお願い致します。
◆環境
・Windows Server 2008 R2(Enterprise)
・Microsoft Office Professional Plus 2010
Word(14.0.7173.5000,32ビット)