Word 2021用CSV+NEXTIF/VBA实现发票多对一邮件合并的异常问题

针对你遇到的「NEXTIF跳转丢失下一张发票首条记录」问题，以下提供两种可行方案，均无需额外插件，直接基于原生功能实现：

一、VBA实现方案（推荐，可控性强） #

通过VBA直接遍历CSV数据源，按订单ID分组生成发票，彻底避免域代码的跳转漏洞。

代码实现 #

打开Word，按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub MultiToOneInvoiceMerge()
    Dim doc As Document
    Dim dataPath As String
    Dim rs As Object
    Dim currentOrderID As String
    Dim tableRow As Row
    Dim invoiceTable As Table
    
    ' 替换为你的CSV文件路径
    dataPath = "C:\YourData.csv"
    
    ' 用ADO读取CSV数据（需确保CSV首行为表头）
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM [" & Split(dataPath, "\")(UBound(Split(dataPath, "\"))) & "]", _
            "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Left(dataPath, InStrRev(dataPath, "\")) & _
            ";Extended Properties=""Text;HDR=Yes;FMT=Delimited"";"
    
    If rs.EOF Then
        MsgBox "数据源为空"
        Exit Sub
    End If
    
    Set doc = ActiveDocument
    doc.MailMerge.MainDocumentType = wdNotAMergeDocument ' 清除合并关联
    doc.Content.Delete ' 清空文档（按需保留模板内容）
    
    ' 初始化第一个订单
    currentOrderID = rs("订单ID")
    ' 插入发票抬头（根据你的CSV表头调整字段名）
    doc.Content.InsertAfter "姓名：" & rs("姓名") & vbCrLf & "日期：" & rs("日期") & vbCrLf
    doc.Content.InsertAfter "订单ID：" & currentOrderID & vbCrLf & vbCrLf
    
    ' 创建明细表格
    Set invoiceTable = doc.Tables.Add(Range:=doc.Content.End, NumRows:=1, NumColumns:=3)
    With invoiceTable.Rows(1)
        .Cells(1).Range.Text = "商品名称"
        .Cells(2).Range.Text = "数量"
        .Cells(3).Range.Text = "金额"
        .HeadingFormat = True
    End With
    
    ' 遍历所有记录
    Do Until rs.EOF
        If rs("订单ID") = currentOrderID Then
            ' 同一订单，添加明细行
            Set tableRow = invoiceTable.Rows.Add
            tableRow.Cells(1).Range.Text = rs("商品名称")
            tableRow.Cells(2).Range.Text = rs("数量")
            tableRow.Cells(3).Range.Text = rs("金额")
            rs.MoveNext
        Else
            ' 新订单，分页并生成新发票
            doc.Content.InsertBreak wdPageBreak
            currentOrderID = rs("订单ID")
            
            doc.Content.InsertAfter "姓名：" & rs("姓名") & vbCrLf & "日期：" & rs("日期") & vbCrLf
            doc.Content.InsertAfter "订单ID：" & currentOrderID & vbCrLf & vbCrLf
            
            Set invoiceTable = doc.Tables.Add(Range:=doc.Content.End, NumRows:=1, NumColumns:=3)
            With invoiceTable.Rows(1)
                .Cells(1).Range.Text = "商品名称"
                .Cells(2).Range.Text = "数量"
                .Cells(3).Range.Text = "金额"
                .HeadingFormat = True
            End With
            
            ' 添加新订单的第一条明细
            Set tableRow = invoiceTable.Rows.Add
            tableRow.Cells(1).Range.Text = rs("商品名称")
            tableRow.Cells(2).Range.Text = rs("数量")
            tableRow.Cells(3).Range.Text = rs("金额")
            rs.MoveNext
        End If
    Loop
    
    rs.Close
    Set rs = Nothing
    MsgBox "合并完成"
End Sub

注意事项 #

• 确保CSV文件第一行是表头，且字段名与代码中rs("字段名")一致
• 替换dataPath为你的CSV实际路径
• 可根据需求修改发票抬头、表格样式等内容

二、域代码修正方案（无需VBA） #

通过调整域逻辑，避免跳转时丢失新订单的首条记录：

步骤1：存储当前订单信息 #

在发票模板开头（抬头上方）插入以下域代码（用Ctrl+F9插入大括号，不能手动输入）：

{SET CurrentOrder {MERGEFIELD 订单ID}}
{SET CurrentName {MERGEFIELD 姓名}}
{SET CurrentDate {MERGEFIELD 日期}}

步骤2：修改发票抬头 #

用存储的变量代替直接合并域，防止跳转后信息被覆盖：

姓名：{CurrentName}
日期：{CurrentDate}
订单ID：{CurrentOrder}

步骤3：调整明细行的跳转逻辑 #

在每一行明细的末尾插入：

{IF {MERGEFIELD 订单ID} = {CurrentOrder} "{NEXT}" ""}

步骤4：添加末尾判断 #

在发票末尾（分页符前）插入：

{IF {MERGEFIELD 订单ID} <> {CurrentOrder} "{SKIPIF {MERGEREC} > 1}" ""}

该逻辑会跳过不属于当前订单的记录，确保它作为下一张发票的首条被正常处理。

操作提示 #

所有域代码输入完成后，按F9更新域；预览合并时，需启用「查看域代码」选项（Alt+F9）确认逻辑正确。

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