Qt利用ActiveX生成Word文档

一个Qt的项目，项目中要求生成doc格式的报表，查阅发现这方面的资料比较少，通过有限的资料，自己研究了一下午，终于搞明白了一些。

Qt中的ActiveQt框架

控制word主要使用的两个类：QAxWidget和QAxObject

Qt通过QAxWidget和QAxObject来使用ActiveX控件

其中QAxWidget扮演着ActiveX控制器的角色

而QAxObject扮演着COM对象容器的角色

程序中必要的引用和配置文件更改

需要引用如下头文件

#include <QAxWidget>
#include <QAxObject>

在.pro文件中需要加入如下语句：

CONFIG  += qaxcontainer

一个写word文件的例子

程序如下

#include <QApplication>
#include <QAxWidget>
#include <QAxObject>
#include <QFile>

int main(int argc, char *argv[])
{
QApplication a(argc, argv);
// 新建一个word应用程序,并设置为不可见
QAxWidget *word=new QAxWidget("Word.Application", 0, Qt::MSWindowsOwnDC);
word->setProperty("Visible", false);
// 获取所有的工作文档
QAxObject * documents = word->querySubObject("Documents");
// 以文件template.dot为模版新建一个文档
documents->dynamicCall("Add(QString)",QString("D:/template.dot"));
// 获取当前激活的文档
QAxObject *document=word->querySubObject("ActiveDocument");
// 获取文档中名字为label1的标签
QAxObject*bookmark_text=document->querySubObject("Bookmarks(label1)");
// 选中标签，将字符InsertText插入到标签位置
if(!bookmark_text->isNull())
{
bookmark_text->dynamicCall("Select(void)");
bookmark_text->querySubObject("Range")->setProperty("Text","InsertText");
}
// 获取文档中名字为label2的标签
QAxObject *bookmark_pic = document->querySubObject("Bookmarks(label2)");
// 选中标签，将图片插入到标签位置
if(!bookmark_pic->isNull())
{
bookmark_pic->dynamicCall("Select(void)");
QAxObject *Inlineshapes = document->querySubObject("InlineShapes");
Inlineshapes->dynamicCall("AddPicture(const QString&)","D:\\123.jpg");  //路径必须为windows路径格式
}

// 将文件另存为docbyqt.doc,关闭工作文档，退出应用程序
document->dynamicCall("SaveAs (const QString&)", QString("D:/docbyqt.doc"));
document->dynamicCall("Close (boolean)", false);
word->dynamicCall("Quit()");

delete bookmark_text;
delete bookmark_pic;
delete document;
delete documents;
delete word;

return 0;
}

上面的程序注释写的比较详细了，就不在过多的解释了。只说两个地方：

对象函数的调用

QAxObject *subobject = object->querySubObject("name");
subobject->dynamicCall("function(paraList)",para);

对象属性的设置

object->setProperty("property_key",property_value);

得到COM的类、对象以及对象的函数和属性的方法

第一步，得到word宏的VBA代码

方法就是在word中录制操作的宏，然后查看宏的内容。

注意要点是要尽量保证操作的有效性，使宏尽可能的简介。

下面是一个插入一个图片，并设置阴影的宏。

Sub 宏1()
Selection.InlineShapes.AddPicture FileName:="D:\123.jpg", LinkToFile:= _
False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InlineShapes(1).Shadow.Type = msoShadow5
End Sub

第二步，从宏中解析出想要的信息

先以第一句代码为例：

忽略Selection，看后面的内容。

selection应该是指选中当前选中的位置，可以用Range和select等函数定位。

倒序读取这行的内容，AddPicture 后面是空格和一些属性，所以AddPicture 是一个函数，而空格后面则是函数对应的参数

InlineShapes 就是拥有函数 AddPicture 的对象

我们就可以用如下语句创建一个InlineShapes 的对象，并调用使用他的方法

QAxObject *Inlineshapes = document->querySubObject("InlineShapes");
Inlineshapes->dynamicCall("AddPicture(const QString&)","D:\\123.jpg");

再看最后一句：

还是忽略Selection，看后面的内容。

selection如上所示

依旧倒序读取，最后是一个赋值操作，所以Type是一个属性。而前面每一个被“.”隔开的变量都是一个对象。

我们可以用如下语句完成上述VB的功能：

QAxObject *Inlineshape = document->querySubObject("InlineShapes(1)");
QAxObject *Shadow = Inlineshape->querySubObject("Shadow");
Shadow->dynamicCall("SetType(Office::MsoShadowType)", 5);

第三步，获取类的API文档

当我们想系统的了解一个类的时候，最方便的就是读API文档。幸运的是，Qt能够生成COM的API

方法如下：

QString doc=object->generateDocumentation();
QFile outFile("d:/object.html");
outFile.open(QIODevice::WriteOnly|QIODevice::Append);
QTextStream ts(&outFile);
ts<<doc<<endl;

生成的html文件阅读起来十分方便。

使用word模版（.dot）和书签

word有模版和标签机制，可以方便的创建一个框架并且标记要插入内容的位置，非常便于生成word文件。

利用word模版，标记书签（bookmark），然后通过Qt读取书签，在相应位置插入内容，将大大简化Qt的代码。

使用书签的方法与使用其他的对象没有大的区别，代码如下：

QAxObject *document=word->querySubObject("ActiveDocument");
// 获取文档中名字为label1的标签
QAxObject*bookmark_text=document->querySubObject("Bookmarks(label1)");
// 选中标签，将字符InsertText插入到标签位置
if(!bookmark_text->isNull())
{
bookmark_text->dynamicCall("Select(void)");
bookmark_text->querySubObject("Range")->setProperty("Text","InsertText");
}

以上就是我对Qt生成word文件的初步了解

另附一个msdn关于VB和C#的页面：http://msdn.microsoft.com/zh-cn/library/y1xatbkd%28v=vs.80%29.aspx