Microsoft Word マクロ フォントの変更

Sub font_gothic()
'
' font_gothic Macro
' フォントをセリフ系にする（MSゴシック・Arial）
' Macro recorded 2/16/2005 by sam
'
With Selection.Font
.NameFarEast = "ＭＳ ゴシック"
.NameAscii = "Arial"
.NameOther = "Arial"
End With
End Sub
Sub font_mincho()
'
' font_mincho Macro
' フォントをサンセリフ系にする（MS明朝・Times New Roman）
' Macro recorded 2/16/2005 by sam
'
With Selection.Font
.NameFarEast = "ＭＳ 明朝"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
End With
End Sub