Как создать таблицу в Word 2007 программно? - VB

Формулировка задачи:

Доброе время суток, уважаемые!
Создаю документы на основе существующего. Необходимо в каждом новом документе формировать таблицу с переменным значением строк, которое будет браться из запроса. Пишу так:

ObjWord =  Word.Application
    PathDOT = 

    rs.MoveFirst
    intRows = 
       rs.EOF
        intRows = intRows + 
        rs.MoveNext
    
    rs.MoveFirst
    
    arrayRows = rs.GetRows(intRows)
    
     tblList  Table

     intLoopRow =   intRows - 
        ObjWord.Documents.Add PathDOT &  & 
        ObjWord.Visible = True
 
         tblList = ActiveDocument.Tables.Add(Selection.Range, NumRows:=, NumColumns:=)
         Selection.Tables()
             .Style <>  
                .Style = 
             
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = False
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = False
            .ApplyStyleRowBands = True
            .ApplyStyleColumnBands = False

     ObjWord = 
    rs.

Программа вставляет все таблицы в документ-шаблон. Мне надо, чтобы вставляла в созданный на основе шаблона. Как сделать?

Решение задачи: «Как создать таблицу в Word 2007 программно?»

textual
                            Листинг программы 
                        
                            Doc.ActiveWindow.Selection.EndKey Unit:=wdStory
        <font color="blue">Set</font> tblList = Doc.Tables.Add(Doc.ActiveWindow.Selection.Range, NumRows:=<font color="darkblue"><b>1</b></font>, NumColumns:=<font color="darkblue"><b>4</b></font>)