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
お礼
はい。昨日やっと変換つっか「反映」されました。多分ptの前の数値が変えてなかったからおっしゃる通り「変換」しても反映されなかったんだと思います。2回もご回答頂いて本当に有難うございます。