Word2007 адресация на таблицу VB

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

нужно методично перетащить огромную кучу сплошного текста в табличку раскидав все по строкам и столбцам. выделить необходимые данные проблемы не составляет так как они структурированы грамотно. вырезать тоже. но как вставить вырезанные данные в существующую таблицу сам допереть не могу((

Решение задачи: «Word2007 адресация на таблицу VB»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> m100825_0925()
    <font color="blue">Dim</font> tbl <font color="blue">As</font> Table
    <font color="blue">Dim</font> r1 <font color="blue">As</font> Row
    <font color="blue">Set</font> tbl = Word.ActiveDocument.Tables(<font color="darkblue"><b>1</b></font>)
    j1 = tbl.Rows.Count
    J = <font color="darkblue"><b>0</b></font>
    Word.ActiveDocument.Tables(<font color="darkblue"><b>1</b></font>).Rows(j1).<font color="blue">Select</font>
<font color="00AA00">''    Do While J < 10</font>
<font color="00AA00">''    J = J + 1</font>
    Selection.Collapse Direction:=wdCollapseEnd
     Selection.InsertRows <font color="darkblue"><b>2</b></font>
<font color="00AA00">''    Loop</font>
 
<font color="blue">End</font> <font color="blue">Sub</font>




                        