VBA代码无报错但生成Word文档数据异常求助

核心问题1：循环逻辑错误导致数据重复 #

代码仅在tableIndex > 1时执行rst.MoveNext，会让第一条记录被重复处理两次：

• 首次循环（tableIndex=1）读取第一条记录，处理后不移动指针，tableIndex变为2
• 二次循环（tableIndex=2）再次读取同一条记录，之后才执行指针移动

修复：移除MoveNext的条件判断，将其放在循环末尾，确保每次循环都移动记录指针：

Do While Not rst.EOF
    ' 读取记录数据的代码段
    
    ' 处理Word变量的代码段
    
    rst.MoveNext ' 无条件移到下一条记录
    tableIndex = tableIndex + 1
Loop

核心问题2：未声明变量incn引发潜在异常 #

代码中incn未显式声明，属于隐式Variant变量，可能因数据类型不匹配导致变量名拼接错误，最终Word域找不到对应变量而显示为空。

修复：在变量声明区添加incn的类型声明（根据查询字段类型调整）：

Dim incn As Integer ' 若IncrementNumber是文本类型，改为String

核心问题3：Word变量赋值方式存在风险 #

使用.Variables.Add时，若变量已存在（模板预定义或循环重复创建），会触发错误；即使未报错，也可能无法正确更新已有变量的值。

修复：先检查变量是否存在，存在则更新值，不存在再添加：

' 以Math类型变量为例，替换原.Add写法
With WordDoc
    On Error Resume Next ' 临时忽略变量不存在的错误
    .Variables("Math" & incn & "a").Value = cnum
    If Err.Number <> 0 Then
        .Variables.Add "Math" & incn & "a", cnum
    End If
    Err.Clear
    On Error GoTo 0 ' 恢复正常错误处理
    
    ' 其他课程变量执行同样逻辑...
End With

额外排查方向 #

• 核查查询qry & daST的结果：确认是否存在重复记录、空值字段，或IncrementNumber值不符合预期（如非连续数字、空值）
• 检查Word模板MasterRecord2.docx的域：确保域对应的变量名与代码拼接的名称完全一致
• 确认Select Case覆盖所有课程类型：未匹配的课程不会赋值变量，导致对应位置为空

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