В коде происходит следующее:
- Открывается MS Word
- Добавляется новый документ
- отключается грамматика
- расположение страницы делается альбомная
- Добавляется автоматическая нумерация страниц.
- Создается таблица
- Ширина таблицы делается на всю страницу
- Таблица выравнивается по центру по горизонтали
- Заполняется таблица текстом

//Enter into WORD, create new document.
QAxObject* pWordApplication=new QAxObject("Word.Application"); // Создаю интерфейс к MSWord
QAxObject* pWordDocuments = pWordApplication->querySubObject( "Documents()" ); // Получаю интерфейсы к его подобъекту "коллекция открытых документов":
pWordDocuments->querySubObject( "Add()" ); // Создаю новый документ
pWordApplication->setProperty("Visible", true); // Делаем Word видимым

// отключение грамматики
QAxObject* pGrammatic = pWordApplication->querySubObject("Options()");
pGrammatic->setProperty("CheckSpellingAsYouType(bool)", false); // отключение грамматики

//Get active document.
QAxObject* pActiveDocument = pWordApplication->querySubObject("ActiveDocument()");

//Set landscape orientation.
QAxObject *pPageSetup = pActiveDocument->querySubObject("PageSetup");
pPageSetup->setProperty("Orientation", "wdOrientLandscape");

//Inserting automatically pages numerations.
pActiveDocument->querySubObject("Sections(Index)", 1)
->querySubObject("Footers(WdHeaderFooterIndex)", "wdHeaderFooterPrimary")
->querySubObject("PageNumbers")
->dynamicCall("Add(PageNumberAlignment,FirstPage)", "wdAlignPageNumberCenter", TRUE);

//Get selection.
QAxObject *pSelection = pWordApplication->querySubObject("ActiveDocument")->querySubObject("ActiveWindow")->querySubObject("Selection");

// создание таблицы
QAxObject* pTables = pActiveDocument->querySubObject("Tables()");
QAxObject* pNewTable = pTables->querySubObject("Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)", pSelection->property("Range"), 1, 5, 1, 1);
//5 columns.

//Resize table width to whole page width.
pNewTable->setProperty("PreferredWidthType", "wdPreferredWidthPercent");
pNewTable->setProperty("PreferredWidth", 100);

//Align table to center.
pNewTable->querySubObject("Rows()")->setProperty("Alignment", "wdAlignRowCenter");

//Iterate found records.
QAxObject *pCell=NULL, *pCellRange=NULL;
int cur_row = 0;
while(cur_row < 100)
{
//Inserting new row for each new data.
pSelection->dynamicCall("InsertRowsBelow()");

//Column-0.
pCell = pCurRow->querySubObject("Cells(Index)", 1); //Warning! Arg of col num is 1-based.
pCellRange = pCell->querySubObject("Range()");
pCellRange->dynamicCall("InsertAfter(Text)","My 1 cell");

//Column-1.
pCell = pCurRow->querySubObject("Cells(Index)", 2);
pCellRange = pCell->querySubObject("Range()");
pCellRange->dynamicCall("InsertAfter(Text)","My 2 cell");

//Column-2.
pCell = pCurRow->querySubObject("Cells(Index)", 3);
pCellRange = pCell->querySubObject("Range()");
pCellRange->dynamicCall("InsertAfter(Text)","My 3 cell");

//Column-3.
pCell = pCurRow->querySubObject("Cells(Index)", 4);
pCellRange = pCell->querySubObject("Range()");
pCellRange->dynamicCall("InsertAfter(Text)","My 4 cell");

//Column-4. State.Begin.
pCell = pCurRow->querySubObject("Cells(Index)", 5);
pCellRange = pCell->querySubObject("Range()");
pCellRange->dynamicCall("InsertAfter(Text)","My 5 cell");

//Update cur row index.
cur_row++;
}
//Iterate found records.End.