Word邮件合并无法直接差异化附加文件，需用VBA脚本实现：通过Excel数据源提供各收件人附件绝对路径，嵌入VBA调用Outlook自动绑定，隐藏域读取路径，处理相对路径为绝对路径，并配置Outlook权限完成批量发送。
如果您在使用Word邮件合并功能时，需要为不同收件人附加各自专属的文件，则标准邮件合并无法直接实现附件差异化处理。以下是利用VBA脚本增强邮件合并流程，实现按收件人动态绑定不同附件的操作方法：
一、准备带附件路径的数据源
邮件合并需依赖外部数据源（如Excel表格）提供每位收件人的基本信息及对应附件的完整本地路径。该路径必须准确指向每个收件人专属的文件（如PDF、图片或文档），且路径中不能包含中文全角字符或未转义的空格，否则VBA读取时易报错。
1、在Excel中新增一列，列标题命名为“AttachmentPath”。
2、在该列每一行填写对应收件人的附件绝对路径，例如：“C:\MailMerge\张三_合同.pdf”。
3、确保Excel文件另存为启用宏的格式（.xlsm），并关闭所有Excel实例后再启动Word进行合并。
二、编写VBA脚本注入邮件合并主文档
通过在Word主文档中嵌入VBA代码，可在邮件合并每生成一封新信件时，自动提取当前记录的附件路径，并调用Outlook对象模型附加该文件。此方法绕过Word原生限制，实现逐封定制化附件绑定。
1、按Alt+F11打开Word VBA编辑器，双击Normal模板或当前文档对应的ThisDocument模块。
2、粘贴以下关键代码段（不修改Sub MailMergeWithAttachments名称）：
3、在代码中确认Outlook.Application对象已正确引用，且系统已安装并登录Microsoft Outlook客户端。
三、配置邮件合并域与附件触发逻辑
Word主文档中需插入隐藏域标记以激活VBA附件逻辑，同时避免在最终输出中显示冗余内容。该逻辑依赖MERGEFIELD字段与VBA中的MailMerge.DataSource.DataFields索引同步匹配，确保每次迭代读取正确的AttachmentPath值。
1、在主文档末尾插入域代码：{ MERGEFIELD AttachmentPath }，然后选中该域按Shift+F9切换为纯文本显示。
2、将该字段所在段落字体设为白色、字号1，并添加段前段后0磅间距，实现视觉隐藏但保留数据可读性。
3、在VBA脚本中使用ActiveDocument.MailMerge.DataSource.DataFields("AttachmentPath").Value获取当前记录路径。
四、启用Outlook安全权限并测试单封发送
Windows和Outlook默认阻止自动化附件操作以防恶意脚本，需临时降低安全级别或使用ClickYes类工具授权。跳过此步将导致VBA在附加文件时弹出“是否允许此程序发送邮件”提示并中断批量流程。
1、打开Outlook → 文件 → 选项 → 信任中心 → 信任中心设置 → 程序性访问，选择“从不警告并阻止……”（仅限可信环境）。
2、返回Word，执行一次单记录邮件合并预览（选择“编辑单个文档”→“当前记录”）。
3、运行VBA子过程MailMergeWithAttachments，观察Outlook新建邮件窗口是否自动加载正文及指定路径下的对应附件。
五、替换附件路径中的相对引用为绝对路径
若数据源中AttachmentPath列为相对路径（如“.\Attachments\李四_报价单.docx”），VBA无法直接解析，必须在脚本运行前统一转换为从Word文档所在目录出发的绝对路径，否则附件加载失败并抛出错误1004。
1、在VBA中声明变量strDocPath = ActiveDocument.Path，并确保其末尾含反斜杠“\”。
2、对AttachmentPath字段值执行Replace函数：Replace(DataField.Value, ".\", strDocPath)。
3、将处理后的字符串赋值给attPath变量，并用Dir(attPath)验证文件是否存在，若返回空则跳过附件步骤并记录缺失附件的收件人姓名到状态栏。
