Запишите макрос для добавления таблицы из трех столбцов и четырех строк.

Sub mac1()
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4,
      NumColumns:=3
End Sub