Таблица в WORD - VB

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

Подскажите, пожалуйста, как мне прочитать значения всех ячеек в строке таблицы Word и перейти на следующюю строку таблицы?
Весь гемор в разбитой ячейке!

Решение задачи: «Таблица в WORD»

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

                            <font color="blue">Sub</font> Table_Word()
<font color="blue">Dim</font> WordApp <font color="blue">As</font> Word.Application
<font color="blue">Dim</font> DocWord <font color="blue">As</font> Word.Document
<font color="blue">Dim</font> TableWord <font color="blue">As</font> Word.Table
<font color="blue">Dim</font> objExc <font color="blue">As</font> <font color="blue">New</font> Excel.Application
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> r <font color="blue">As</font> <font color="blue">Integer</font> <font color="00AA00">'количество столбцов в таблице</font>

<font color="blue">Set</font> WordApp = <font color="blue">New</font> Word.Application
<font color="blue">Set</font> DocWord = WordApp.Documents.<font color="blue">Open</font>(<font color="teal">"I:\1.doc"</font>)
objExc.Workbooks.Add
objExc.Range(<font color="teal">"a1"</font>).<font color="blue">Select</font>
WordApp.Visible = True
objExc.Visible = True
DocWord.Activate
<font color="blue">Set</font> TableWord = DocWord.Tables(<font color="darkblue"><b>1</b></font>)
<font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> TableWord.Range.Rows.Count
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
   DoEvents
    <font color="blue">For</font> r = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>6</b></font>
            objExc.ActiveCell.Offset(<font color="darkblue"><b>0</b></font>, r).Value = TableWord.Cell(i, r).Range.Text
    <font color="blue">Next</font> r
  objExc.ActiveCell.Offset(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>0</b></font>).<font color="blue">Select</font>
<font color="blue">Next</font> i
<font color="blue">Set</font> WordApp = <font color="blue">Nothing</font>
<font color="blue">Set</font> objExc = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        