Attribute VB_Name = "NewMacros"
Sub Макрос1()
Attribute Макрос1.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.Макрос1"
'
' Макрос1 Макрос
'
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
        1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=175.25, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Rows(1).SetHeight RowHeight:=116.05, HeightRule:= _
        wdRowHeightAtLeast
    Selection.Font.Size = 14
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:="""УТВЕРЖДАЮ"""
    Selection.TypeParagraph
    Selection.TypeText Text:="Проректор по научно-исследовательской работе"
    Selection.TypeParagraph
    Selection.TypeText Text:="___________И.О. Фамилия"
    Selection.TypeParagraph
    Selection.TypeText Text:="""__""___________ 1999 г."
End Sub