qt 操作word

Posted 2020-07-24 朝闻道

//修改doc

 QString filepath="e:\\aa.doc";

 QAxWidget *word = new QAxWidget("Word.Application");

 QAxObject *document =word->querySubObject("Documents");

 document->dynamicCall("Open(const QString&)",QString(filepath));

 QAxObject *doc = word->querySubObject("ActiveDocument");//获取当前工作簿

 QAxObject *table=doc->querySubObject("Tables(int)",1);

 QAxObject *cell=table->querySubObject("Cell(int,int)",1,1);

 cell->querySubObject("Range")->setProperty("Text","111");

 //doc->dynamicCall("Tables(1).Cell(1, 1).Range.Text=‘111‘");

 doc->dynamicCall("Save()");

 document->dynamicCall("Close()");//关闭工作簿

 qDebug() << QString(QDir::toNativeSeparators(filepath));

 word->dynamicCall("Quit()");//关闭excel

 qDebug() << document;

 doc =NULL;

 document=NULL;

 word=NULL;

 qDebug() << QString(QDir::toNativeSeparators(filepath));

 //新增doc

 /**

 QString filepath="e:\\aa.doc";

 QAxWidget *word = new QAxWidget("Word.Application");

 //word->setControl("Word.Application");//连接word控件

 QAxObject *document =word->querySubObject("Documents");

 qDebug() << document;

 document->dynamicCall("Add()");

 QAxObject *doc = word->querySubObject("ActiveDocument");//获取当前工作簿

 doc->dynamicCall("SaveAs(const QString&)",QString(QDir::toNativeSeparators(filepath)));//保存至filepath，注意一定要用QDir::toNativeSeparators将路径中的"/"转换为"\"，不然一定保存不了。

 document->dynamicCall("Close()");//关闭工作簿

 qDebug() << QString(QDir::toNativeSeparators(filepath));

 word->dynamicCall("Quit()");//关闭excel

 qDebug() << document;

 doc =NULL;

 document=NULL;

 word=NULL;

 qDebug() << QString(QDir::toNativeSeparators(filepath));

 **/

http://www.360doc.com/content/14/0227/16/7918060_356177077.shtml
http://wenku.baidu.com/link?url=yZRGMW5aB8TrKoAYylebLyRcfXR9GTVcGpJ67-Ym3Q0Q-Q38GQz-W0iDhmpkCP_05LMwRBqadtWYRi3fgkrzW2Sw-WTUEyCLiddw0pOHoNm
http://blog.sina.com.cn/s/blog_a6fb6cc90101gv2p.html
http://blog.csdn.net/tingsking18/article/details/5677353

http://www.quweiji.com/qt-%E6%93%8D%E4%BD%9Cword/