Word邮件合并生成单个PDF 前2行非表头的字段取值报错问题

问题说明 #

• 现有Word邮件合并批量生成单个PDF的代码基础运行正常
• 绑定的客户提供的固定格式Excel数据源前2行不是表头，首行跨列合并导致除首列外其余.DataFields字段无法正常读取，且不能修改原Excel文件结构
• 调整文件名拼接为「姓氏_名字.pdf」时出现异常：单独读取.DataFields("Last_Name")正常，拼接.DataFields("Last_Name") & "_" & .DataFields("F2")时仅生成1个PDF后程序报错退出
• 待解决需求：
  • 能否通过类似字段偏移+1的方式读取相邻列，实现多字段拼接
  • 能否设置数据源起始记录位置，适配前2行非表头的结构，完成多字段拼接命名

异常代码片段 #

With .DataSource
    .FirstRecord = i
    .LastRecord = i
    .ActiveRecord = i
    If Trim(.DataFields("Last_Name")) = "" Then Exit For
    'StrFolder = .DataFields("Folder") & "\"
    StrName = .DataFields("Last_Name") & "_" & .DataFields("First_Name")

可行解决方案 #

方案1：指定数据源读取范围（优先推荐，无需改动原Excel文件） #

直接在绑定数据源阶段通过SQL语句指定实际表头和数据的起始位置，和Word界面「完成并合并」的范围选择逻辑一致，从根源解决字段识别错误问题：

• 替换原有数据源绑定代码，通过OpenDataSource方法的SQLStatement参数直接框定实际有效数据区域，跳过前2行无效内容，指定第3行为表头行
• 参考代码如下，路径、工作表名、区域范围按实际情况修改：

' 示例：实际表头在第3行，数据从第4行开始，姓氏在A列、名字在B列，最大数据行到10000行
ActiveDocument.MailMerge.OpenDataSource _
    Name:="C:\你的数据源文件完整路径.xlsx", _
    ConfirmConversions:=False, ReadOnly:=True, _
    LinkToSource:=True, AddToRecentFiles:=False, _
    Format:=wdOpenFormatAuto, _
    Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\你的数据源文件完整路径.xlsx;Mode=Read;Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=1"";", _
    SQLStatement:="SELECT * FROM [你的工作表名称$A3:Z10000]", _
    SubType:=wdMergeSubTypeAccess

• 配置完成后原有.DataFields("Last_Name")、.DataFields("First_Name")即可正常读取，不需要修改后续文件名拼接逻辑，不会出现字段识别混乱的问题。

方案2：按字段索引偏移读取（快速临时方案，无需修改数据源连接逻辑） #

.DataFields集合支持数字索引访问，索引从1开始对应数据源从左到右的列，不需要依赖字段名，可实现类似Excel单元格偏移读取的效果：

• 先确认可正常读取的姓氏列对应的索引值，比如姓氏在最左第1列对应索引1，右侧相邻的名字列对应索引2，按实际列位置调整索引数字即可
• 修改后的文件名拼接代码如下：

With .DataSource
    .FirstRecord = i
    .LastRecord = i
    .ActiveRecord = i
    ' 增加空值判断，避免读到无效行触发报错
    If IsNull(.DataFields(1).Value) Or Trim(.DataFields(1).Value) = "" Then Exit For
    ' 索引1为姓氏列，索引2为右侧相邻的名字列
    StrName = Trim(.DataFields(1).Value) & "_" & Trim(.DataFields(2).Value)
End With

• 之前用F2读取报错的核心原因是Word默认将首行识别为表头，跨列合并导致字段名识别混乱，F2和实际列映射关系错误，读到无效值时触发运行时错误，索引访问可以绕开字段名识别问题。
• 注意使用该方案时，循环初始值要设为3，跳过前2行非数据内容，避免生成无效PDF。

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