因為最近項中需要生成報表，所以網上查了資料，因為VB看不懂所以總結的也不多，在實現中沒有使用標籤只是以游標的位置來插入,包括：建立檔案，排版方式，新增文字，新增圖片，新增表格，表格新增文字（圖片），游標移動到尾部，游標跳轉（類似tab）等

新增 QT += axcontainer

QAxObject *m_pWord;      //指向整個Word應用程式
QAxObject *m_pWorkDocuments;  //指向文件集,Word有很多文件
QAxObject *m_pWorkDocument;   //指向m_sFile對應的文件，就是要操作的文件

/*
    建立word
*/

void MainWindow::open()
{
    m_pWord = new QAxObject();
    bool flag = m_pWord->setControl( "Word.Application" );
    if(!flag)
    {
        return;
    }
    m_pWord->setProperty("Visible", true);

    QAxObject *document = m_pWord->querySubObject("Documents");
    if(!document)
    {
        return ;
    }

    //獲取當前啟用的文件
    m_pWorkDocument = m_pWord->querySubObject("ActiveDocument");
}

/*
 * 排版方式
 * 縱行、橫行
*/

void MainWindow::setype(bool type)
{
    QAxObject* selection = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    if(type)
    {
        selection->querySubObject("PageSetup")->setProperty("Orientation","wdOrientLandscape");
    }else{
        selection->querySubObject("PageSetup")->setProperty("Orientation","wdOrientPortrait");
    }
}

/*
 * 獲取頁寬
*/

int MainWindow::pageWidth()
{
    int width;
    QAxObject* selection = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    width = selection->querySubObject("PageSetup")->property("PageWidth").toInt();;
    return width;
}

/*
*設定字號
*/

void MainWindow::setFontSize(int size)
{
    QAxObject* selection = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    selection->querySubObject("Font")->setProperty("Size",size);
}

/*
   設定對齊方式
*/

void MainWindow::setAlignment(int index)
{
    QAxObject *selection = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    if(index == 0)
    {
      selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphCenter");
    }
    if(index == 1)
    {
       selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphJustify");
    }
    if(index == 2)
    {
       selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphRight");
    }
    if(index == 3)
    {
       selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphLeft");
    }
}

/*
   插入文字
*/

void MainWindow::typeText(QString text)
{
    QAxObject* selection  = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    selection->dynamicCall("TypeText(const QString&)",text);
}
/*
    插入圖片
*/

void MainWindow::AddPicture(QString file)
{
    QAxObject* selection  = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    QString filename = file;
    filename.replace("/","\\");
    QAxObject *Inlineshapes = selection->querySubObject("InlineShapes");
    Inlineshapes->dynamicCall("AddPicture(const QString&)",filename);
    delete Inlineshapes;
}

/*
    插入回車
*/

void MainWindow::insertEnter()
{
    QAxObject* selection  = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    selection->dynamicCall("TypeParagraph(void)");
}

/*
 * 游標移到末尾,跳出單元格
*/
void MainWindow::moveForEnd()
{
    QAxObject* selection = m_pWord->querySubObject("Selection");
    QVariantList params;
    params.append(6);
    params.append(0);
    selection->dynamicCall("EndOf(QVariant&, QVariant&)", params).toInt();
}

/*
   建立表格
   QStringList headList 新增表頭
*/

QAxObject* MainWindow::createTable(int row, int column,QStringList headList)
{
    QAxObject* selection  = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return false;
    }
    selection->dynamicCall("InsertAfter(QString&)", "\r\n");

    QAxObject *range = selection->querySubObject("Range");
    QAxObject *tables = m_pWorkDocument->querySubObject("Tables");
    QAxObject *table = tables->querySubObject("Add(QVariant,int,int)",range->asVariant(),row,column);

    table->setProperty("Style","網格型");
    //表格自動拉伸列 0固定  1根據內容調整  2 根據視窗調整
    table->dynamicCall("AutoFitBehavior(WdAutoFitBehavior)", 2);

    //設定表頭
    for(int i=0;i<headList.size();i++)
    {
        table->querySubObject("Cell(int,int)",1,i+1)->querySubObject("Range")->dynamicCall("SetText(QString)", headList.at(i));
        //加粗
        table->querySubObject("Cell(int,int)",1,i+1)->querySubObject("Range")->dynamicCall("SetBold(int)", true);
    }
    return table;
}

/*
   填充表格
*/

void MainWindow::setCellText(QAxObject *table, int row, int column, QString text)
{
    QAxObject* range = table->querySubObject("Cell(int, int)",row+1,column+1)->querySubObject("Range");
    if( range)
    {
        return;
    }

    range->dynamicCall("SetText(QString)", text);
}

/*
  表格插入圖片
*/
void MainWindow::setAddPicture(QAxObject *table, int row, int column, QString picPath)
{
    QAxObject* range = table->querySubObject("Cell(int, int)",row+1,column+1)->querySubObject("Range");
    if(!range)
    {
        return;
    }
    range->querySubObject("InlineShapes")->dynamicCall("AddPicture(const QString&)",picPath);
}

/*
   游標跳轉，類似表格中的tab
*/

void MainWindow::moveRight()
{
    QAxObject* selection  = m_pWord->querySubObject("Selection");
    if(!selection)
    {
        return;
    }
    selection->dynamicCall("MoveRight(int)",1);
}

/*特殊樣例*/

void MainWindow::Example()
{
    QStringList header;

    newTable(1,2,header);//建立表格

    typeText(tr("文字1"));//新增文字
    insertEnter();//換行
    insertText("");
    AddPicture("影象1");//插入圖片

    moveRight();//將游標插入到下個單元格中

    typeText(tr("文字2"));
    insertEnter();
    insertText("");
    AddPicture("影象2");

    moveForEnd();//游標跳出表格

    /*然後，可以做其他操作了*/

}