Dim doc as DocumentWith WordApp doc = .Documents.Add With doc .Font.Size = 14 .TypeText Text = "ого!" Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed End WithEnd With