Создание нескольких таблиц в документе Word через OLE в C++ Builder

[AleksP]

Как создать несколько таблиц в документе Word через OLE?

Использую следующий код:
{
Variant Word, Document, Table;

Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 5, 5);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 3, 3);
Table = Document.OlePropertyGet.("Tables").OleFunction("Item", 1);
}

При таком задании вторая таблица создается в первой ячейке первой таблицы. Что я делаю неправильно?

[bi-lya]

Полагаю, это из-за того, что курсор после создания первой таблицы находится в ее первой ячейке. Уводите курсор под таблицу

[AleksP]

To bi-lya: А как это сделать?

[Aent]

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

'ActiveDocument.Tables.Add .................
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph   'что бы новая таблица не слилась со старой
'ActiveDocument.Tables.Add .................