需用VBA宏实现Word邮件合并文档的自动拆分：先启用开发工具并插入宏代码，再根据分节符或段落标记运行对应拆分宏，最后自定义保存路径与文件名，并处理分节符缺失问题。
如果您在Word中完成邮件合并后需要将生成的合并文档按记录自动拆分为多个独立文件，则需借助VBA宏脚本实现批量分离。以下是实现此功能的具体操作步骤：
一、启用开发工具并插入VBA宏
Word默认不显示“开发工具”选项卡，需先启用该功能，才能访问VBA编辑器并插入自定义宏代码。
1、点击“文件”→“选项”→“自定义功能区”。
2、在右侧“主选项卡”列表中勾选开发工具，点击“确定”。
3、切换至“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器。
4、在左侧工程资源管理器中右键当前文档（如Normal或文档名），选择“插入”→“模块”。
5、将完整的邮件合并拆分宏代码粘贴到新模块空白区域。
二、使用SplitMailMergeDocument宏拆分主文档
该宏基于当前已执行完邮件合并的主文档，逐页识别分节符或段落标记作为记录分隔依据，为每条记录创建独立的Word文件。
1、确保邮件合并已完成，且文档中每条记录以分节符（下一页）分隔。
2、返回Word界面，在“开发工具”选项卡中点击“宏”，选择“SplitMailMergeDocument”，点击“运行”。
3、宏将弹出文件夹选择对话框，指定输出路径。
4、宏自动遍历所有节，将每节内容复制到新文档，并以“记录_序号.docx”命名保存。
三、使用SplitByParagraphDelimiter宏按段落拆分
当邮件合并结果未使用分节符，而是以特定段落标记（如“===”或空行）分隔各记录时，可采用此方法进行定位与切分。
1、在文档末尾插入统一的分隔段落，例如单独一行包含“#END#”。
2、运行宏前，在VBA代码中将分隔符变量delimiter修改为实际使用的字符串（如"#END#"）。
3、执行宏后，程序从开头搜索该分隔符，每次截取至前一分隔符之间的全部内容。
4、每段内容被另存为独立文件，文件名含顺序编号与时间戳，避免覆盖。
四、添加保存路径与文件名自定义逻辑
默认宏可能将文件保存至临时目录，为确保文件归位，需在代码中显式设定保存路径及命名规则。
1、在宏代码中查找类似strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")的语句。
2、将其替换为固定路径，例如：strPath = "C:\MailMerge_Output\"。
3、检查文件名拼接部分，确认是否包含字段值；如需用数据源中的“姓名”字段命名，应启用ActiveDocument.MailMerge.DataSource.DataFields("姓名").Value获取当前记录值。
4、确保目标文件夹已存在，否则宏会因路径错误中断执行。
五、处理分节符缺失导致的页面错位问题
若原始合并文档未插入分节符，Word可能将多条记录压缩在同一节内，造成拆分后内容混杂。此时需预先规范化文档结构。
1、按Ctrl+Shift+8显示段落标记，确认各记录间是否存在分节符（下一页）。
2、若无分节符，执行“查找替换”：查找内容输入^p^p（两个连续段落标记），替换为^m^p（分节符+段落标记）。
3、对全文执行替换后，再运行SplitMailMergeDocument宏。
4、验证首条记录是否完整——若首节仍含多条数据，说明原合并模板未启用“为每个记录创建新文档”选项，需重新执行邮件合并并勾选该设置。
