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

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