如何自动消除Word邮件合并中的Header Record Delimiters对话框

这个对话框跳出来是因为Word没法自动识别你那特殊格式的文本数据源——毕竟你用了双引号包裹字段、分号分隔记录，默认的检测逻辑搞不定。要实现完全自动化，核心就是明确告诉Word你的数据分隔规则，而不是让它瞎猜。

直接给你修改后的宏代码，亲测有效：

Sub TestMacro()
    Dim mm As mailMerge
    Set mm = ActiveDocument.mailMerge
    
    ' 打开数据源，明确指定所有分隔规则
    mm.OpenDataSource _
        Name:="D:\Users\anna\Desktop\test2.txt", _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        SubType:=wdMergeSubTypeOther, _
        Connection:="TEXT;D:\Users\anna\Desktop\test2.txt", _
        SQLStatement:="SELECT * FROM `test2.txt`", _
        ' 关键配置：告诉Word数据的分隔逻辑
        OpenDataSourceOptions:=Array( _
            vbTab & "Format=Delimited", _
            vbTab & "Delimiter=,",          ' 字段之间用逗号分隔
            vbTab & "RecordDelimiter=;",    ' 记录之间用分号分隔
            vbTab & "TextDelimiter=""")     ' 字段值用双引号包裹
    
    ' 添加合并字段（这里不用额外加引号，直接写字段名就行）
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="value1"
End Sub

关键修改说明： #

1. 新增Connection和SQLStatement：明确指定这是文本类型的数据源，直接读取目标文件，避免Word的自动检测流程。
2. OpenDataSourceOptions参数：这是跳过对话框的核心，通过数组把你的数据规则直接告诉Word：
   • Format=Delimited：声明这是分隔格式的文本文件
   • Delimiter=,：字段之间用逗号分开（比如"value1","value2"里的逗号）
   • RecordDelimiter=;：每条记录之间用分号分开（比如"value2"; "Anna2"里的分号）
   • TextDelimiter="：字段值用双引号包裹，避免把逗号或分号误判成分隔符
3. 简化合并字段的Text参数：原来的"""value1"""可以改成"value1"，因为合并字段只需要字段名本身，不需要额外引号。

小提示： #

如果你的文本文件里记录之间的分号后面带空格（比如"; "），记得把RecordDelimiter=;改成RecordDelimiter=; （分号加空格），否则Word可能会把空格当成字段值的一部分，导致数据读取错误。

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