Qt通过COM操作Word生成文档：完整实战指南

1. 为什么项目里总会冒出"Qt输出Word"的需求

做了几年Qt桌面端开发，你会发现一个规律：凡是涉及业务系统、办公自动化的项目，十有八九会碰到"在程序里生成Word文档"这种需求。比如项目里要定期输出月度报告、按模板生成合同文书、导出带格式的评审表，或者批量生成录用通知——产品经理的语言永远是一句"你就把数据填进Word里嘛"，但落到技术侧，这并不是一个Ctrl+C/Ctrl+V能解决的问题。

我第一次被安排这个任务时，第一反应是去翻Qt的帮助文档，看有没有自带的Word模块。答案是：没有。Qt本身对Office文档的支持非常有限，没有原生的docx解析器，也不内置任何文档导出接口。有人可能会说"QTextDocument不是能写富文本吗？能用啊"，但真要交付到客户手里，要求是"打开能正常排版的.docx"，QTextDocument导出的格式Word打开问题一大堆，样式也控制不住。于是主流的可行路线只剩两条：

1. 直接生成符合OOXML规范的docx文件（本质是打ZIP包，手写document.xml等内部结构）；
2. 通过COM组件控制本机安装的Word应用程序，让Word替我们把文档拼出来。

这两条路线我在不同项目里都试过。方案1看起来更"纯Qt"，不依赖Office环境，但要做复杂的表格合并、分页、页眉页脚、样式继承时，手写XML的工作量会暴涨，调试起来特别痛苦，尤其嵌套表格的结构稍有偏差，Word打开就报"文件损坏，是否要恢复"。方案2则走了另一个极端：完全的"外部依赖"，要求目标机器必须装有Microsoft Word，但带来的好处是——你只需要会调用Word的接口，排版逻辑全部交给Word自己，所见即所得，客户验收时基本挑不出文件层面的毛病。

实际项目里，绝大多数业务场景的目标机器都预装Office，所以方案2成了我长期在用的主方案。这篇就把我在Windows平台上用Qt通过COM组件操作Word的完整套路整理出来：从环境配置、初始化写法、套用模板填充数据，到批量替换文本、插入表格和图片、设置格式，再到让Word静默驻留后台的注意事项和性能优化，每一步都附可跑的代码。内容基于我在实际项目里反复踩坑、验证过的经验，适合刚接到类似需求、想少走弯路的Qt开发者参考。

需要先说清楚一个大前提：这套方案只适用于Windows平台，底层依赖是Qt的QAxContainer模块，也就是ActiveQt框架。跨平台项目别指望它，Linux/macOS上如果想要同样效果，只能回到方案1或者另找别的路子（比如用LibreOffice的UNO接口）。我下面说的所有东西，都默认你的开发环境和部署环境都是Windows。

2. 技术底座：QAxObject与Word的COM自动化模型

2.1 为什么是COM而不是什么原生Qt库

其实初看Qt的模块列表，很多人会以为ActiveQt是给Windows控件开发用的老古董，但在文档自动化这个场景里，QAxObject是最趁手的工具。它做的事简单说就是：在Qt和Windows COM组件之间搭桥，让你的C++代码能像调用本地对象一样调用Word暴露出来的自动化接口。

Word本身作为一个COM服务器，暴露了一整套自动化模型，结构是这样一条链：Application（Word应用本体）→Documents（当前打开的所有文档集合）→Document（单篇文档）→Paragraphs/Tables/InlineShapes等（文档内容对象）。在Qt侧，你只需要创建几个QAxObject指针，一层层往下拿；而要调用某个方法或设置某个属性，则通过dynamicCall和setProperty完成。

用生活类比来讲，QAxObject就像一把万能遥控器，Word就是那台被遥控的电视。你不需要拆开电视研究内部电路（X不关心OOXML内部结构），只需要按遥控器上的按钮（调接口），电视就会自己播放出你想要的画面。

2.2 环境与工程配置，先让项目跑起来

• Qt版本：我这边一直在用Qt 5.12~5.15的MSVC套件，这套代码在Qt 6.x上也能编译，但QAxContainer模块在Qt 6里从Qt库中剥离成了独立模块。如果你用的是Qt 6，需要额外安装Active Qt组件，否则#include <QAxObject>会直接报找不到头文件。
• 编译器：建议用MSVC，MinGW虽然也能编，但COM支持的细节上坑更多。Word版本的话，Office 2010到Office 365我都测过，核心接口一致，基本都能通。

最关键的是工程文件.pro里的一行配置：

QT += axcontainer

加上这一行之后，Qt Creator会自动链接相关的COM库，代码里就可以正常写：

#include <QAxObject>

有个容易忽略的点：Release版本的程序也要保留Word的COM注册信息，如果你在纯净的部署环境（比如刚装好系统的客户机器）上运行发现QAxObject创建失败，先检查机器上有没有正常安装Office。Office没装或者装的是商店版（UWP版），COM接口大概率是注册不全的，这是环境问题，代码怎么写都没用。

2.3 初始化Word应用程序的几种写法

初始化Word的接口，网上能找到的写法五花八门，有一种很常见但容易出问题的快速写法：

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

这种写法不推荐。因为它不检查COM组件是否正确创建，一旦本机Word环境有问题，返回的就是空指针，后面再调用指针方法，程序就会在不知道哪个角落崩溃。我自己的固定写法是：

QAxObject* word = nullptr; QAxObject* docs = nullptr; QAxObject* doc = nullptr; word = new QAxObject(); if (!word->setControl("Word.Application")) { // 创建失败，这里可以抛出异常或记录日志 delete word; word = nullptr; }

setControl返回bool，能准确判断是否拿到了Word.Application这个COM对象。创建成功之后，再拿文档集合：

if (word == nullptr) { // 做错误处理，或者直接返回失败 return false; } docs = word->querySubObject("Documents");

一个关键的补充点：程序初始化时有一步不该省的设置——QApplication::setAttribute(Qt::AA_EnableHighDpiScaling)。如果你的电脑开了显示缩放（比如125%、150%），而程序没启用高DPI感知，Word自动化操作时窗口坐标会出现偏移，某些情况下会影响获取表格行列位置的接口结果。我在这上面栽过一次，加上之后现象就消失了。这一步的完整写法放在main函数开头：

int main(int argc, char *argv[]) { QApplication::setAttribute(Qt::AA_EnableHighDpiScaling); QApplication app(argc, argv); // 其余初始化 }

3. 核心操作：打开文档、写内容、控制格式

3.1 创建新文档与打开已有文档

拿到docs集合之后，两条路：新建空文档，或者打开已有文件。

// 新建文档 doc = docs->querySubObject("Add()"); // 打开已有文档 doc = docs->querySubObject("Open(const QString&)", QString("D:/templates/report.docx"));

Open接口的第一个参数是文件全路径，注意必须是绝对路径，相对路径大概率打不开。目录分隔符用两种都可以，但建议统一写成/，比如D:/templates/report.docx，Qt层会做转换，Windows COM也认这个分隔符，避免在字符串里写\\转义把自己绕晕。

打开已有模板文档后，向其中替换占位符是高频操作。我会在模板里预留形如{{姓名}}、{{日期}}这样的文本，然后程序里用查找替换的方式填充。

需要特别留个心眼：Word的COM接口里，Selection.Find.Execute是能用的主力替换手段，但它有副作用——一次Execute只替换第一个匹配项。要替换全文所有占位符，必须套循环，循环里每次查找到之后继续执行Execute，直到Execute返回false为止。Execute的返回值在COM自动化里是bool，可以通过dynamicCall的返回值拿到。

3.2 用"查找替换"批量填充模板数据

下面这段是我实际项目里提炼出来的"全篇替换"函数骨架，改一改就能用：

bool replaceInWordDocument(QAxObject* doc, const QString& findText, const QString& replaceText) { if (!doc || findText.isEmpty()) { qWarning() << "Invalid doc or findText"; return false; } QAxObject* content = doc->querySubObject("Content"); if (!content) { qWarning() << "Failed to query Content"; return false; } QAxObject* find = content->querySubObject("Find"); if (!find) { qWarning() << "Failed to query Find"; return false; } // 执行查找替换 bool ok = find->dynamicCall("Execute(const QString&)", findText).toBool(); while (ok) { QAxObject* textObj = content->querySubObject("Text"); QString currentText = textObj ? textObj->toString() : QString(); if (currentText == findText) // 用文本内容判等，确定确实找对了 { // 替换：选中后直接修改文本 // 简便做法：使用 Find.Execute 的 ReplaceWith 参数 find->dynamicCall("Execute(const QString&, bool, bool, bool, bool, bool, bool, int, int, const QString&, int)", QVariantList{ findText, // FindText false, // MatchCase false, // MatchWholeWord false, // MatchWildcards false, // MatchSoundsLike false, // MatchAllWordForms true, // Forward 1, // Wrap (1 = wdFindContinue) 0, // Format replaceText, // ReplaceWith 2 // Replace (2 = wdReplaceAll) }); } else { break; } } return true; }

不过上面这段有个细节要注意：Content.Find.Execute配合Replace参数使用时，如果把Replace设为2（即wdReplaceAll），它会在一次调用内部自动把所有匹配项替换完，不会只替换一个。我之前踩过坑，以为Execute一次只替换一处，结果循环里不停地执行，导致同一个占位符被替换了好几遍。实际上更稳的做法是：直接用一次ReplaceAll完成整篇替换，把Replace参数传2即可。核心代码可以精简成：

bool ok = find->dynamicCall( "Execute(const QString&, bool, bool, bool, bool, bool, bool, int, int, const QString&, int)", QVariantList{ findText, // 查找内容 false, // MatchCase false, // MatchWholeWord false, // MatchWildcards false, // MatchSoundsLike false, // MatchAllWordForms true, // Forward 1, // Wrap 0, // Format replaceText, // 替换内容 2 // Replace - wdReplaceAll }).toBool();

dynamicCall的参数字符串里，每个const QString&对应一个QVariant参数。参数的顺序、个数都必须和Word的VBA接口签名完全一致，少了多了都会调用失败。这一点只能对照VBA文档来，没有捷径，不过对于常用替换场景，上面这份参数模板可以一直套用。

3.3 用Range对象写入大段文字

如果业务场景不是套模板，而是凭空生成一段带格式的Word文档（比如把各系统的数据汇总成纯文本文档），那需要用到Range对象。

QAxObject* content = doc->querySubObject("Content"); content->dynamicCall("InsertAfter(const QString&)", QString("这是第一段内容。\n"));

但InsertAfter追加的内容在末尾，想控制段落的对齐、字号、颜色，就必须在插入之后获取段落范围，然后对Font对象设置属性。

QAxObject* paragraphs = doc->querySubObject("Paragraphs"); int count = paragraphs->property("Count").toInt(); QAxObject* lastParagraph = doc->querySubObject("Paragraphs(int)", count); // 设置居中 lastParagraph->dynamicCall("set_Alignment", 1); // 1 表示居中 // 设置该段落的字体 QAxObject* range = lastParagraph->querySubObject("Range"); QAxObject* font = range->querySubObject("Font"); font->setProperty("Bold", true); font->setProperty("Size", 14); font->dynamicCall("set_Name", QString("微软雅黑"));

注意set_Alignment这个名字，是VBA属性Alignment的setter自动化写法。直接用setProperty("Alignment", 1)在某些场景也能生效，但遇到Word个别属性时不如set_xxx稳定。我个人的习惯是，属性赋值优先用setProperty，如果发现某些版本Word不生效，再换dynamicCall("set_Alignment", value)。

Range对象的语义要解释一下：它不像Word里你眼睛看到的那段文本那么明确，它更像是文档中一段连续的区间，你可以把它理解为Word世界里的"选区"。操作Range就是操作选区，后面插入表格和图片都逃不开这个思路。

4. 表格与图片：让数据真正"排版"起来

4.1 插入表格并填充单元格数据

模板数据里最常出现的场景，是把数据库查出来的多行记录放进一个规整的表格。

插入表格的接口是Documents下的Tables.Add，但必须先有一个Range作为插入位置。最常见的做法是：把光标先放到文档末尾，取末尾Range，再以它为锚点插入表格。

// 1. 先取文档内容末尾的Range QAxObject* content = doc->querySubObject("Content"); QVariant endPos = content->property("End"); QAxObject* range = doc->querySubObject("Range(int, int)", endPos.toInt(), endPos.toInt()); // 2. 调用Tables集合 QAxObject* tables = doc->querySubObject("Tables"); QAxObject* table = tables->querySubObject( "Add(QAxObject*, int, int)", QVariantList{ range->asVariant(), rowCount, colCount }); // 3. 设置表格样式（可选） table->setProperty("Style", "网格型"); // 给一个内置样式名

Tables.Add的第一个参数是Range对象，传法有点特别：需要用QVariantList把多个参数包起来，其中第一个参数直接传QAxObject指针。如果你漏掉了这个参数，表格想插到当前位置就插不到指定位置，Word会在最前面插——这经常导致表格跑到模板文字前面去，初次写的人很容易被坑到。

表格建好之后，往单元格填数据是这样：

// 逐行逐列赋值，i从1开始，行/列索引不越界 for (int i = 1; i <= rowCount; ++i) { for (int j = 1; j <= colCount; ++j) { QAxObject* cell = table->querySubObject("Cell(int, int)", i, j); QAxObject* cellRange = cell->querySubObject("Range"); cellRange->dynamicCall("set_Text", QString("第%1行第%2列").arg(i).arg(j)); } }

这里的索引从1开始是VBA的习惯，和C++数组从0开始不一样，循环边界容易搞错，导致最后一列数据没填上。另一种常见情况：你往Cell里设置文本后，整个单元格文字默认靠左对齐、字号跟随模板，如果想要统一格式，需要对每个cellRange再操作一次ParagraphFormat：

QAxObject* paraFmt = cellRange->querySubObject("ParagraphFormat"); paraFmt->setProperty("Alignment", 1); // 居中

4.2 插入图片，并控制尺寸和位置

报告类文档里插Logo、插截图是常事。在Word的COM自动化里，插入图片的方法是InlineShapes.AddPicture——注意是InlineShapes（嵌入型图片），不是Shapes（浮动图形）。嵌入型图片的好处是它跟着文字走，插入到当前Range所在位置，排版不容易乱。

QAxObject* inlineShapes = doc->querySubObject("InlineShapes"); QAxObject* inlineShape = inlineShapes->querySubObject( "AddPicture(const QString&, bool, bool, QAxObject*)", QVariantList{ QString("D:/images/logo.png"), false, true, range->asVariant() });

AddPicture的参数：第一个是文件完整路径；第二个是LinkToFile（我们传false，表示嵌入文档，不链接外部文件）；第三个是SaveWithDocument（传true，保存文档时图片一起存）；第四个是插入的Range位置。

图片插入后默认大小是图片原始像素大小，如果原图是高清大图，Word文档会被撑得非常大，或者显示面积过宽。需要手动缩放到统一宽度：

// 锁定宽高比，仅设置宽度，高度自动按比例调整 inlineShape->setProperty("LockAspectRatio", true); inlineShape->setProperty("Width", 120); // 单位是磅，120磅约4.2厘米

Width的单位是磅（point），1磅≈0.035厘米。插图宽度设为多少，取决于你的文档页面大小。A4纸去掉左右边距的正文宽度大约在432磅左右，设120磅就是约占正文宽度四分之一，可作为参考比例。

4.3 表格里插图片

和普通Range插图片还有一个差别：如果想把图片放进某个表格单元格里，你得先把Range设为那个单元格，再调AddPicture，参数里的Range换成单元格Range。直接对一个Cell对象调用InlineShapes是找不到集合的，这个细节我当时调了半天。

5. 文档保存与关闭：别忘了这一哆嗦

5.1 保存格式的选择与坑

操作完文档，到了收尾阶段。保存接口有两种写法：

// 方式1：直接保存 doc->dynamicCall("Save()"); // 方式2：另存为 doc->dynamicCall("SaveAs2(const QString&, int)", QString("D:/output/report.docx"), 16);

SaveAs2的第二个参数是文件格式编号。常用值记几个：

我个人的教训是：新版本Office用SaveAs2，老版本用SaveAs。办公室里装Office 2007的老机器，识别不了"SaveAs2"，会报方法不存在。解决方案是在代码里先探测一下：

QAxObject* save = doc->querySubObject("SaveAs2(const QString&, int)", path, 16); if (!save) { doc->dynamicCall("SaveAs(const QString&, int)", path, 16); }

不过说实在的，现在部署环境基本都Office 2016以上了，直接用SaveAs2问题也不大。只是桌面端软件这东西，客户那边保不齐有什么老古董环境，留个退路稳一点。

5.2 关闭文档和退出Word

保存之后，最容易被忽略的是释放COM资源。如果不主动调用文档的Close和Word的Quit，每次程序跑完，后台都会留一个WINWORD.EXE进程，第二次运行再新开一个，越积越多。时间久了用户打开任务管理器，发现十来个Word进程挂着，会直接怀疑你这软件有病。

正确的关闭顺序是：先关文档，再退Word：

if (doc) { doc->dynamicCall("Close(bool)", false); // false：不保存更改，我们已保存过 delete doc; doc = nullptr; } if (word) { word->dynamicCall("Quit()"); delete word; word = nullptr; }

注意这里有个先后问题：必须先关掉文档再Quit Word。如果你先Quit再Cloce文档，Word会弹一个"是否保存更改"的对话框。更危险的是，如果程序里用了doc->dynamicCall("Save()")但某个文档被只读打开，Save会失败；Quit的时候Word发现未保存，又会弹模态对话框，这会卡住你的自动化流程，程序像死了一样挂在那里。真机测试时这种弹窗很烦，所以有能力的话，应该在打开文档前先把Word设置成不弹窗：

word->setProperty("DisplayAlerts", 0); // wdAlertsNone，屏蔽所有提示

DisplayAlerts设为0之后，Word遇到保存冲突、格式不兼容这类问题会采取默认动作，不再弹窗询问。部署到生产环境后，这行代码能帮你省掉无数远程排查。

6. 性能优化与常见问题：那些必须绕开的坑

6.1 全篇替换为什么那么慢

有段时间我处理一个80页的合同模板，里面占位符接近一百个，逐个用查找替换跑，耗时能达到几十秒，用户等无可忍。排查下来原因是一个特别容易犯的错误：每次替换时都从文档开头重新Find，导致替换第100个占位符时，Find还要从头把前面99个位置扫一遍，累积复杂度是O(n²)。

优化手段有两个方向：

第一个方向是**"用ReplaceAll一次替换"**，上文的3.2节已经讲过了，不再赘述。

第二个方向是**"用FixFind批量替换同名单个占位符"**，如果模板里同一个占位符出现多次（比如每页页脚都有{{公司名}}），用一次ReplaceAll配合Replace=2也能一把梭，实测速度比单次替换循环快十倍以上。

第二个方向是关掉后台拼写检查。Word在编辑长文档时，后台会不断做拼写和语法检查，拖慢所有自动化操作。在初始化时关掉能明显提速：

word->setProperty("Options/CheckSpellingAsYouType", false); word->setProperty("Options/CheckGrammarAsYouType", false);

6.2 死锁和假死：自动化操作的定时炸弹

QAxObject调用本身是同步的，但Word处理某些操作时，尤其是涉及大量样式重排的文档，会临时无响应。这时如果你在一个UI线程里同步等待，程序界面会"假死"，用户点哪儿都没反应，体验极差。

我的处理方式是把耗时操作全丢到工作线程里，只在开始和结束时用信号通知进度。但这里必须提醒一个雷区：QAxObject内部直接操作COM，它不能在普通的非主线程里随便创建和使用——COM的初始化规则是，使用COM的线程必须主动调用CoInitialize。Qt的工作线程默认没有调用，所以要在工作线程的run()开头手动加一行：

CoInitializeEx(nullptr, COINIT_MULTITHREADED);

线程结束时再调用CoUninitialize()。否则高频的COM调用偶尔会崩，且偶发性极强，复现全靠运气，非常折磨。为了避免这种玄学bug，我后来干脆把文档自动化操作**全部放在进程启动时初始化好的"专用工作线程"**里，这个线程内只跑有关Word的逻辑，绝不挪到别的线程。

6.3 Word进程残留的排查手段

如果用户反馈"软件用完后电脑变卡"，打开任务管理器发现多个WINWORD.EXE，多半是异常分支里没释放。比如程序中途用户点了取消，或者某个dynamicCall抛了异常，函数直接return，资源没走到清理代码。

我给你推荐一个"兜底"思路：在程序退出时，不要依赖doc和word对象一个个Close/Quit，而是直接用任务管理命令把残留的Word结束掉。当然前提是"确认这些Word进程是我们创建的，而不是用户自己开着文档"。做法是：启动Word时记录PID，退出时拿着PID去结束。具体实现不细写了，用QAxObject的Application属性可以拿到PID：

// 拿到Word的进程ID QAxObject* app = word->querySubObject("Application"); int pid = app->property("Hwnd").toInt(); // 实际上拿不到PID，Hwnd是句柄

这里其实有个问题：Word的COM接口暴露的句柄是窗口句柄，不是真正意义上的进程ID。要拿PID，正规路径是用GetWindowThreadProcessId(HWND, &pid)，通过窗口句柄反查进程ID。实际工程里我最后就是这么做的，关闭时会先正常调用Quit，等1秒后检查进程是否还在，还在再用TerminateProcess兜底。这个方法不优雅，但对付顽固的WORD进程非常有效。

6.4 表格交错和样式失真的排查

一旦你往模板中间插入表格，插完又往文档末尾继续加段落，表格后面必须加一个空段落，否则新内容可能会被Word并进表格内，出现你写在表格后面的标题实际变成了"表格的最后一行"，格式全乱。这个是Word排版的老规矩，COM自动化也逃不掉。

排查思路很简单：插入表格之后，马上在表格下方加一个空白段落：

// 获取表格末尾Range QAxObject* tableRange = table->querySubObject("Range"); int tableEnd = tableRange->property("End").toInt(); QAxObject* afterTableRange = doc->querySubObject("Range(int, int)", tableEnd, tableEnd); afterTableRange->dynamicCall("InsertParagraphAfter()");

类似这种和排版习惯相关的小问题，没有文档会替你写，全靠一次一次在真机里试。

7. 一个可直接套用的文档生成Demo

最后给一个从初始化到保存退出的完整流程示例，也就是我上面的内容浓缩成的一个"能跑的最小骨架"。全部代码基于实际工程简化而来，去掉业务逻辑，只保留Word操作主干。

假设场景是：接到一个需求，程序读取数据库里的某条记录，生成一份包含标题、正文、数据表格和一张图片的Word报告，另存到指定路径。

#include <QAxObject> #include <QApplication> #include <QDebug> bool createWordReport(const QString& outputPath) { QAxObject* word = new QAxObject(); if (!word->setControl("Word.Application")) { delete word; qWarning() << "Word.Application 启动失败"; return false; } // 屏蔽弹窗 word->setProperty("DisplayAlerts", 0); // 关闭拼写检查，提速 word->setProperty("Options/CheckSpellingAsYouType", false); word->setProperty("Options/CheckGrammarAsYouType", false); QAxObject* docs = word->querySubObject("Documents"); QAxObject* doc = docs->querySubObject("Add()"); // 1. 写入标题 QAxObject* content = doc->querySubObject("Content"); content->dynamicCall("InsertAfter(const QString&)", QString("2025年度项目总结报告")); int titleEnd = content->property("End").toInt(); QAxObject* titleRange = doc->querySubObject("Range(int, int)", titleEnd - 1, titleEnd); if (titleRange) { QAxObject* fmt = titleRange->querySubObject("ParagraphFormat"); fmt->setProperty("Alignment", 1); // 居中 QAxObject* font = titleRange->querySubObject("Font"); font->setProperty("Bold", true); font->setProperty("Size", 18); } // 2. 写一段正文 content->dynamicCall("InsertAfter(const QString&)", QString("\n本项目围绕办公自动化展开，核心目标是把重复性的文档生成工作交给程序完成。")); content->dynamicCall("InsertAfter(const QString&)", QString("\n\n关键指标如下表所示：")); // 3. 插入表格 int pos = content->property("End").toInt(); QAxObject* tableRange = doc->querySubObject("Range(int, int)", pos, pos); QAxObject* tables = doc->querySubObject("Tables"); QAxObject* table = tables->querySubObject( "Add(QAxObject*, int, int)", QVariantList{ tableRange->asVariant(), 3, 4 }); // 表格填数 QStringList rowData; rowData << "指标" << "数值" << "同期" << "结论"; for (int i = 1; i <= 3; ++i) { for (int j = 1; j <= 4; ++j) { QAxObject* cell = table->querySubObject("Cell(int, int)", i, j); QAxObject* r = cell->querySubObject("Range"); QString val = (i == 1) ? rowData[j-1] : QString("内容%1%2").arg(i).arg(j); r->dynamicCall("set_Text", val); } } // 表格后加空段落 int tableEnd = table->querySubObject("Range")->property("End").toInt(); QAxObject* afterRange = doc->querySubObject("Range(int, int)", tableEnd, tableEnd); afterRange->dynamicCall("InsertParagraphAfter()"); // 4. 插入图片 QAxObject* inlineShapes = doc->querySubObject("InlineShapes"); int picPos = content->property("End").toInt(); QAxObject* picRange = doc->querySubObject("Range(int, int)", picPos, picPos); QAxObject* shape = inlineShapes->querySubObject( "AddPicture(const QString&, bool, bool, QAxObject*)", QVariantList{ QString("D:/images/chart.png"), false, true, picRange->asVariant() }); if (shape) { shape->setProperty("LockAspectRatio", true); shape->setProperty("Width", 300); } // 5. 保存并退出 doc->dynamicCall("SaveAs2(const QString&, int)", outputPath, 16); doc->dynamicCall("Close(bool)", false); delete doc; delete docs; // docs 由 querySubObject 返回，也需要释放 word->dynamicCall("Quit()"); delete word; return true; }

这个Demo里需要说清楚的是querySubObject的释放规则：每次调用querySubObject返回的对象，是你new出来的对象的子对象。父对象销毁时子指针是否自动释放，取决于QObject父子关系有没有建立。QAxContainer的机制下，我实测是不一定要显式delete，但为了不碰运气，凡是querySubObject出来的，我都在用完、确认不再需要后手动delete，宁可多删不能漏删，避免COM资源悬挂。

如果把整段代码按上面的思路跑一遍，你在目标路径下会得到一个包含标题、正文、表格和图片的报告，打开就是规整排版的Word页面。这个骨架可以应对大部分"生成报告/导出文档"的场景，剩下的业务改动基本都是往里面填数据、改样式参数。

最后再分享一个实际工作里的心得：凡是涉及QAxObject调用的地方，不管是dynamicCall还是querySubObject，返回前都先判空。我在大规模重构这个模块时，加了一堆判空逻辑，把以前偶发的崩溃问题基本都挡在了外面——COM这玩意就算接口文档写得再清楚，Word版本差异仍会带来各种"这里少了个对象"的奇葩反馈，防御性编程在这套方案里不是洁癖，是刚需。