【Word VBA/マクロ】本文フォントの変更

コードの説明

ActiveDocument.Contentで本文領域を示すRangeオブジェクトを取得。
NameFarEastプロパティとNameプロパティで、日本語と英数字フォントを指定します。

Sub 本文フォント変更()
    With ActiveDocument.Content.Font
        .NameFarEast = "ＭＳ ゴシック"
        .Name = "Arial"
    End With
End Sub

図形のフォント変更は次の記事を参照ください。
rapoppo.hatenadiary.jp