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