Создание таблици из VB в Worde

<font color="blue">Public</font> <font color="blue">Sub</font> CreateTable()
    <font color="blue">Dim</font> wdApp <font color="blue">As</font> Word.Application
    <font color="blue">Dim</font> wdDoc <font color="blue">As</font> Word.Document
    <font color="blue">Dim</font> wdTbl <font color="blue">As</font> Word.Table
    <font color="blue">Dim</font> wdRng <font color="blue">As</font> Word.Range
    
    <font color="blue">Set</font> wdApp = CreateObject(<font color="teal">"Word.Application"</font>)
    wdApp.Visible = True
    
    <font color="blue">Set</font> wdDoc = wdApp.Documents.Add
    <font color="blue">Set</font> wdRng = wdDoc.Range

    wdRng.InsertAfter <font color="teal">"Табл.1"</font>
    wdRng.InsertParagraphAfter
    wdRng.Collapse Direction:=wdCollapseEnd
    
    <font color="blue">Set</font> wdTbl = wdDoc.Tables.Add(Range:=wdRng, _
      NumRows:=<font color="darkblue"><b>7</b></font>, NumColumns:=<font color="darkblue"><b>9</b></font>)
      
    wdTbl.Cell(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Range.Text = <font color="teal">"Строка1 Столбец1"</font>
    
    <font color="blue">Set</font> wdRng = wdTbl.Range
    
    wdRng.Collapse Direction:=wdCollapseEnd
    wdRng.InsertParagraphAfter
    wdRng.InsertAfter <font color="teal">"Текст после таблицы"</font>
    
    wdRng.InsertParagraphAfter
    wdRng.Collapse Direction:=wdCollapseEnd
    
    wdDoc.InlineShapes.AddPicture _
      Filename:=<font color="teal">"D:\1\1.bmp"</font>, _
      LinkToFile:=False, _
      SaveWithDocument:=True, _
      Range:=wdRng
    
    <font color="blue">Set</font> wdDoc = <font color="blue">Nothing</font>
    <font color="blue">Set</font> wdApp = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>