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

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