VBA работа с Wordом

Dim WDoc As Object
 
Set WDoc = CreateObject('Word.Document') 
WDoc.Application.Visible = True 
 
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.PageSetup.TopMargin = 20
ActiveDocument.PageSetup.BottomMargin = 20
ActiveDocument.PageSetup.LeftMargin = 40
ActiveDocument.PageSetup.RightMargin = 20
With ActiveDocument
       .AutoHyphenation = True
       .HyphenateCaps = True
       .HyphenationZone = CentimetersToPoints(0.63) 
       .ConsecutiveHyphensLimit = 0
End With

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=6
With Selection.Tables(1)
    .AutoFormat Format:=WdTableFormat.wdTableFormatGrid1
    .Range.Font.Size = 10
End With
 
Set WDoc = Nothing