需用VBA宏拆分邮件合并文档：先启用开发工具并插入模块，再粘贴修改拆分代码（替换字段名、确保英文引号），运行宏生成独立文件；可增强正则提取字段值，并添加PDF导出功能。
如果在Word中完成邮件合并后需要将结果按某个字段拆分为独立的文档文件，则需借助VBA宏脚本来自动化执行。以下是实现该功能的具体操作步骤：
一、启用开发工具并插入新模块
在Word中运行VBA宏前，必须确保“开发工具”选项卡可见，并在VBA编辑器中创建用于拆分文档的代码模块。此步骤为后续脚本执行提供运行环境。
1、点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”，点击“确定”。
2、切换到“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器。
3、在VBA编辑器中，右键“Normal”或当前文档项目，选择“插入”→“模块”，新建一个空白模块。
二、粘贴并修改拆分宏代码
该宏通过遍历合并后文档中的节（Section），识别指定字段（如“姓名”或“客户编号”）的唯一值，并为每个值生成独立的Word文件。字段名需与邮件合并域名称一致。
1、在新建模块中粘贴以下VBA代码：
Sub SplitDocumentByField()
Dim doc As Document, newDoc As Document
Dim rng As Range
Dim fieldVal As String, lastVal As String
Dim i As Integer, secCount As Integer
Set doc = ActiveDocument
secCount = doc.Sections.Count
For i = 1 To secCount
Set rng = doc.Sections(i).Range
fieldVal = GetFieldValue(rng, "姓名")
If fieldVal lastVal And fieldVal "" Then
If Not newDoc Is Nothing Then newDoc.Close SaveChanges:=wdDoNotSaveChanges
Set newDoc = Documents.Add
lastVal = fieldVal
End If
If Not newDoc Is Nothing Then rng.Copy: newDoc.Content.Paste
Next i
If Not newDoc Is Nothing Then newDoc.Close SaveChanges:=wdSaveChanges
End Sub
Function GetFieldValue(rng As Range, fieldName As String) As String
Dim fld As Field
For Each fld In rng.Fields
If InStr(fld.Code.Text, "MERGEFIELD " & fieldName) > 0 Then
GetFieldValue = Trim(fld.Result.Text)
Exit Function
End If
Next fld
GetFieldValue = ""
End Function
2、将代码中"姓名"替换为实际使用的邮件合并字段名，例如"客户ID"或"订单号"。
3、确认代码中未出现中文引号，所有引号均为英文半角符号。
三、运行宏并指定保存路径
宏默认将拆分后的文件保存至当前文档所在文件夹，若需指定其他位置，须在代码中添加保存路径逻辑。运行前应确保目标路径存在且具有写入权限。
1、返回Word界面，点击“开发工具”→“宏”，在宏列表中选择“SplitDocumentByField”，点击“运行”。
2、等待执行完成，过程中不建议操作Word界面。
3、检查当前文件夹，确认生成了以字段值命名的多个.docx文件，每个文件对应一个唯一字段值的内容。
四、使用正则匹配增强字段提取可靠性
当字段内容嵌套在段落文本中（而非独立域结果）时，原始域提取可能失败。此时可改用正则表达式从节文本中提取指定格式字段值，提高识别准确率。
1、在VBA编辑器中插入新模块，粘贴以下函数：
Function ExtractFieldValueByRegex(rng As Range, pattern As String) As String
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
With regEx
.Global = True
.IgnoreCase = True
.Pattern = pattern
End With
If regEx.Test(rng.Text) Then
ExtractFieldValueByRegex = regEx.Execute(rng.Text)(0).Value
Else
ExtractFieldValueByRegex = ""
End If
End Function
2、在主宏中调用该函数，例如将原GetFieldValue调用替换为：
fieldVal = ExtractFieldValueByRegex(doc.Sections(i).Range, "客户ID：(\w+)")
3、确保目标文本中存在符合该正则模式的字符串，例如“客户ID：CUST2024001”。
五、批量另存为PDF格式
若需将拆分后的每个Word文档同步导出为PDF，可在生成单个文档后立即调用ExportAsFixedFormat方法，避免二次手动操作。
1、在主宏中定位到newDoc.Close语句前，插入以下代码行：
newDoc.ExportAsFixedFormat OutputFileName:=newDoc.Path & "\" & lastVal & ".pdf", ExportFormat:=wdExportFormatPDF
2、确保newDoc.Path有效，否则需预先定义完整路径，例如：
Const SAVE_PATH As String = "C:\SplitOutput\"
3、运行宏前，在Windows中手动创建该文件夹，否则导出将失败。
