Word Шифты

Sub Шрифт8()
'
' Макрос2 Макрос
'
'
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 8
End Sub
Sub Шрифт9()
'
' Макрос3 Макрос
'
'
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 9
    WordBasic.OpenOrCloseParaAbove
    WordBasic.OpenOrCloseParaAbove
End Sub