wordマクロで検索⇒フォント変更したいが、結果がとびとびになります。

質問

MSwordのマクロについてです。マクロはど素人です。
「数式に使うa,b,n,p,q,r,t,u,v,w,x,y,zの文字を検索して、CMUserifというフォントに変え、サイズを2pt大きくする」
つもりで、以下のマクロを見よう見まねで作って実行したところ、うまく変更される文字とされない文字が混在してしまいます。
これはどのような理由によるもので、また、どのようにマクロを訂正すればよいのでしょうか。
---
Sub 数式用フォントに変更()
Selection.StartOf wdStory
With Selection.Find
Do While .Execute(FindText:=\"[a-bn-np-rt-z]\", Forward:=True, Format:=False, MatchWildcards:=True, MatchSoundsLike:=False) = True
With Selection
Selection.Find.Execute
Selection.Font.Name = \"CMU Serif\"
Selection.Font.Size = Selection.Font.Size + 2
Selection.Find.ClearFormatting
End With
Loop
End With
End

回答No.1

sinsia53 · ベストアンサー

以下の部分を消したらどうなりますか？
With Selection
'↓コメントアウト
'Selection.Find.Execute
Selection.Font.Name = \"CMU Serif\"

お礼

ありがとうございます。
教えていただいたとおり1行消しましたら、うまくいきました。
なるほど、これは検索を２度していたために１つ飛ばして置換されたということなんですね。
本当に助かりました。
ありがとうございます。

それにしても、少ない文字数で的確に指摘されるところに明晰さと美学を感じました。