Работа с таблицами в WORDе (ВБ 6.0) #2

[ShadowLex]

Работа с таблицами в WORDе (ВБ 6.0) #2
С тем вопросом, что я задавал на форуме, я уже разобрался. Это делается так:
Dim objTable As Word.Table
Set objTable = DocWord.Tables.Add(DocWord.Application.Selection.Range, 10, 2)
objTable.Cell(1, 1).Range.Text = Text3.Text
С решением этого вопроса мне здорово помогла статья про таблицы в Ворде Назарова (я скачал статью с сайта vbrussian.com).
Но появился очередной вопрос касательно таблицы. Строки не затираются все нормально, но(!), когда я хочу создать под таблицей несколько параграфов, эти строки вводяться в первой ячейке таблицы первого столбца. Как сделать так, чтобы под таблицей тоже можно было вводить строки? Вот кусок кода

Код: Выделить всё

Set TableWord = DocWord.Tables.Add(DocWord.Application.Selection.Range, 4, 11)
DocWord.Application.Selection.InsertParagraphAfter
DocWord.Application.Selection.InsertAfter "анализы:"
DocWord.Application.Selection.EndOf

TableWord.Cell(1, 1).Range.Text = "Дата"
TableWord.Cell(1, 2).Range.Text = "1"
TableWord.Cell(1, 3).Range.Text = "2"
TableWord.Cell(1, 4).Range.Text = "3"
TableWord.Cell(1, 5).Range.Text = "4"
TableWord.Cell(1, 6).Range.Text = "5"
TableWord.Cell(1, 7).Range.Text = "6"
TableWord.Cell(1, 8).Range.Text = "7"
TableWord.Cell(1, 9).Range.Text = "8"
TableWord.Cell(1, 10).Range.Text = "9"
TableWord.Cell(1, 11).Range.Text = "10"

Rem 2
TableWord.Cell(2, 1).Range.Text = Text8.Text
TableWord.Cell(2, 2).Range.Text = Text9.Text
TableWord.Cell(2, 3).Range.Text = Text10.Text
TableWord.Cell(2, 4).Range.Text = Text11.Text
TableWord.Cell(2, 5).Range.Text = Text12.Text
TableWord.Cell(2, 6).Range.Text = Text13.Text
TableWord.Cell(2, 7).Range.Text = Text14.Text
TableWord.Cell(2, 8).Range.Text = Text15.Text
TableWord.Cell(2, 9).Range.Text = Text16.Text
TableWord.Cell(2, 10).Range.Text = Text17.Text
TableWord.Cell(2, 11).Range.Text = Text18.Text

Rem 3
TableWord.Cell(3, 1).Range.Text = Text19.Text
TableWord.Cell(3, 2).Range.Text = Text20Text
TableWord.Cell(3, 3).Range.Text = Text21.Text
TableWord.Cell(3, 4).Range.Text = Text22.Text
TableWord.Cell(3, 5).Range.Text = Text23.Text
TableWord.Cell(3, 6).Range.Text = Text24.Text
TableWord.Cell(3, 7).Range.Text = Text25.Text
TableWord.Cell(3, 8).Range.Text = Text26.Text
TableWord.Cell(3, 9).Range.Text = Text27.Text
TableWord.Cell(3, 10).Range.Text = Text28.Text
TableWord.Cell(3, 11).Range.Text = Text29.Text

Rem 4
TableWord.Cell(4, 1).Range.Text = Text30.Text
TableWord.Cell(4, 2).Range.Text = Text31.Text
TableWord.Cell(4, 3).Range.Text = Text32.Text
TableWord.Cell(4, 4).Range.Text = Text33.Text
TableWord.Cell(4, 5).Range.Text = Text34.Text
TableWord.Cell(4, 6).Range.Text = Text35.Text
TableWord.Cell(4, 7).Range.Text = Text36.Text
TableWord.Cell(4, 8).Range.Text = Text37.Text
TableWord.Cell(4, 9).Range.Text = Text38.Text
TableWord.Cell(4, 10).Range.Text = Text39.Text
TableWord.Cell(4, 11).Range.Text = Text40.TextDocWord.Application.Selection.EndOf

[color=red][b]Вот здесь заканчивается таблица, и надо вывести параграфы под таблицей[/b][/color]

DocWord.Application.Selection.InsertParagraphAfter
DocWord.Application.Selection.InsertParagraphAfter
DocWord.Application.Selection.InsertParagraphAfter
DocWord.Application.Selection.InsertAfter "Анализ Псм:" & Space(1) & Text41.Text
DocWord.Application.Selection.EndOf

DocWord.Application.Selection.InsertParagraphAfter
DocWord.Application.Selection.InsertAfter "Анализ Пгр:" & Space(1) & Text42.Text
DocWord.Application.Selection.EndOf