Excel VBA FileDialog与Word对象初始化冲突导致多文件处理卡顿问题咨询

问题排查与修复方案 #

• 核心根因1：COM对象资源泄漏
  当前代码每处理1个待搜索Word文件就单独创建1个新的Word应用实例wordAppx3，文件量小时系统资源足够所以运行正常，文件量上来后大量未完全释放的Word实例占用系统COM调度资源，而FileDialog调用会短暂占用UI线程的消息处理队列，刚好在后续初始化第一个全局Word实例wordAppx时触发资源抢占阻塞。硬编码路径时你跳过了第三轮FileDialog调用，消息队列没有累积阻塞所以不会卡住。
  修复方式：全程仅创建1个可复用的Word应用实例，循环内仅调用Documents.Open/Close打开关闭文件，所有文件处理完成后再调用Quit释放应用实例。

• 核心根因2：FileDialog模态窗口消息残留
  Excel的FileDialog是模态窗口，连续3次调用（选主目录、选目标Excel、选关键词文件）后会在系统消息队列残留未处理的窗口消息，此时创建Word实例时Word会等待消息队列响应，叠加多文件遍历的资源占用直接触发无响应。
  排查验证：在每次FileDialog调用结束后添加DoEvents语句释放消息队列，再在Set wordAppx = CreateObject("Word.Application")前额外加1句DoEvents，测试是否恢复正常。

• 其他辅助排查点

  1. 对比FileDialog返回的关键词文件路径和硬编码路径的差异：添加Debug.Print docxName打印返回路径，检查是否为网络路径、带特殊字符/空格的路径，这类路径的打开速度远慢于本地纯英文路径，资源紧张时容易卡住。可调用CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(docxName)处理路径后再传给Word打开。
  2. 开启强制变量声明：在所有模块顶部添加Option Explicit，你当前代码存在wordApppx3拼写错误、parCount/wordx未声明的问题，运行时会生成大量临时变体变量占用内存，放大资源不足的问题。
  3. 主动释放对象：所有Word文档、应用对象使用完成后主动设为Nothing，比如Set wordDocx3 = Nothing，加速COM资源回收。

内容的提问来源于stack exchange，提问作者Chris