ActiveQt+MS Word Опции Подписка на тему Сообщить другу Версия для печати Скачать тему Подписка на этот форум Режимы отображения Древовидный Переключить на: Стандартный Переключить на: Линейный

[vitalka]

Мне необходимо вывести данные в документ MS WORD.
Делаю так:

QAxObject* WordApplication=new QAxObject("Word.Application"); // Создаю интерфейс к MSWord
 QAxObject* WordDocuments = WordApplication->querySubObject( "Documents()" );
 QAxObject* NewDocument = WordDocuments->querySubObject( "Add()" ); // Создаю новый документ
 WordApplication->setProperty("Visible", true); // Делаем Word видимым

 QAxObject* ActiveDocument = WordApplication->querySubObject("ActiveDocument()");
 QAxObject* Range = ActiveDocument->querySubObject("Range()");

Дальше используя

Range->querySubObject("InsertAfter(Text)","текст");

вывожу текст.
Но когда делаю

QAxObject* Tables = ActiveDocument->querySubObject("Tables()");
QAxObject* NewTable = Tables->querySubObject("Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)", ActiveDocument->dynamicCall("Range()"), 10, 10, 1, 1);

предыдущий текст удаляется

Как изменить Range что бы таблицы и данные добавлялись в конец?

Пробовал использовать selection, но при его использовании программа подвисает, на первом же его вызове, после создания объекта. Может кто знает как с selection правильно работать?
Перерыл уже кучу форумов и ничего толком не нашел...