Vorsorge

雑記帳

Wordで英字のフォントを変更する

置換で曖昧検索オプションを外す。
検索する文字列  ^$

置換後の文字列  ^&
置換後の文字列の書式でフォントを目的のフォントに設定。

このうえですべて置換をする。

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "^$"
    .Replacement.Text = "^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

マクロはこんな感じらしい。