Russian Qt Forum

    //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.