読者です 読者をやめる 読者になる 読者になる

Vorsorge

雑記帳

Wordで英数字のフォントを変更する(ワイルドカード編)

検索する文字列 ([\!-~])
オプション:ワイルドカード
書式:特定のフォントを指定

置換後の文字列 \1
書式:特定のフォントを指定

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "([\!-~])"
    .Font.Name = ""
    .Replacement.Text = "\1"
    .Replacement.Font.Name = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchFuzzy = False
    .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

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