Word使用邮件合并Macro导出PDF时报运行时错误5941如何解决

运行时错误5941的本质是VBA请求的集合成员不存在，针对你的代码场景，可按以下优先级排查：

1. 邮件合并数据源连接失效 #

系统重装后原数据源绑定关系会丢失，导致MailMerge.DataSource对象无法正常加载。

• 排查步骤：手动打开目标Word文档，点击「邮件」选项卡→「选择收件人」→「使用现有列表」，重新选中对应的Excel数据源文件，确认字段映射正常后再运行宏测试。

2. company_name字段匹配失败 #

Excel数据源的表头如果被修改，或者字段名存在前后空格、大小写差异，都会导致读取失败。

• 排查步骤：打开Excel数据源，检查第一行列名是否和代码中完全一致的company_name，也可以先插入调试代码输出所有可用字段确认：

' 调试用：运行后可在VBA编辑器立即窗口查看所有字段名
Dim df As MailMergeDataField
For Each df In ActiveDocument.MailMerge.DataSource.DataFields
    Debug.Print df.Name
Next

3. 常量wdFormatPDF未定义 #

如果Office重装后VBA引用库配置异常，内置常量wdFormatPDF会无法识别。

• 解决方案：
  • 打开VBA编辑器（Alt+F11），点击「工具」→「引用」，确认勾选「Microsoft Word xx.x Object Library」（xx.x对应你安装的Office版本，16.0对应Office2016/2019/365）
  • 也可以直接把代码中的wdFormatPDF替换为对应数值17，无需依赖引用：

  ActiveDocument.SaveAs FileName:=strDirectory & "\" & ActiveDocument.MailMerge.DataSource.DataFields("company_name").Value & ".pdf", FileFormat:=17
  

4. 目标路径不存在或无权限 #

系统重装后strDirectory对应的原存储目录可能被删除，或者当前用户对目标目录没有写入权限。

• 排查步骤：在保存代码前插入路径校验逻辑：

' 目录不存在时自动创建
If Dir(strDirectory, vbDirectory) = "" Then
    MkDir strDirectory
End If

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