Добавить новую ячейку в уже имеющейся ячейке (программно нарисовать)

[shartor]

LotusScript 6.5
Есть вордовский документ
В документе есть таблица 2*5
В ячейку 2:4 добавил программно текст

If worddoc.Bookmarks.Exists("AP_Post") = True Then
worddoc.Bookmarks("AP_Post").Select
wordObj.Selection.TypeText doc.AP_Post(0)
End If

После добавления текста в ячейку 2:4 необходимо добавить новую строку/ячейку.

Шаг 0. До добавления:
------------------------------
| | | | | |
| | | | | |
------------------------------
| | | | | |
| | | | | |
------------------------------

Шаг 1. После добавления:
------------------------------
| | | | | |
| | | | | |
------------------------------
| | | |text | |
| | | | | |
------------------------------

Шаг 2. Надо добавить 2 текст с линией/разделителем:
------------------------------
| | | | | |
| | | | | |
------------------------------
| | | |text | |
| | | |------| |
| | | |text | |
------------------------------

Как можно добавить?