VBA实现Word非线性表格与Excel表格邮件合并问题求助

问题根源 #

现有代码仅重复复制模板表格但未实现Excel数据循环读取与单元格绑定，导致所有表格内容一致。需补充数据读取逻辑、逐行填充逻辑，并适配需求中的格式要求。

完整解决方案代码 #

Sub MailMergeNonLinearTable()
    Dim wdDoc As Document
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim lastRow As Long
    Dim i As Long
    Dim templateTable As Table
    Dim newTable As Table
    Dim filePicker As FileDialog
    
    ' 绑定当前操作的Word文档
    Set wdDoc = ActiveDocument
    
    ' 弹窗选择Excel数据源文件
    Set filePicker = Application.FileDialog(msoFileDialogFilePicker)
    With filePicker
        .Title = "选择Excel数据源文件"
        .Filters.Add "Excel格式文件", "*.xlsx;*.xls"
        If .Show <> -1 Then Exit Sub ' 用户取消选择则终止程序
        Set xlWB = GetObject(.SelectedItems(1))
    End Set
    Set xlApp = xlWB.Application
    Set xlWS = xlWB.Sheets(1) ' 默认读取第一个工作表，可按需修改
    
    ' 获取数据有效行数（表头在第1行，数据从第2行开始）
    lastRow = xlWS.Cells(xlWS.Rows.Count, "A").End(-4162).Row ' -4162对应Excel的xlUp常量
    If lastRow < 2 Then
        MsgBox "Excel文件中无有效数据", vbExclamation
        xlWB.Close False
        Set xlWB = Nothing
        Set xlApp = Nothing
        Exit Sub
    End If
    
    ' 定位Word中的模板表格（默认取文档第一个表格，需提前设置好格式）
    If wdDoc.Tables.Count = 0 Then
        MsgBox "Word文档中未找到模板表格", vbExclamation
        xlWB.Close False
        Set xlWB = Nothing
        Set xlApp = Nothing
        Exit Sub
    End If
    Set templateTable = wdDoc.Tables(1)
    
    ' 循环处理每条Excel记录
    For i = 2 To lastRow
        ' 复制模板表格到文档末尾
        templateTable.Range.Copy
        ' 第一条记录前不插空行，后续每条记录前插入空行
        If i > 2 Then wdDoc.Content.InsertParagraphBefore
        wdDoc.Content.Paste
        Set newTable = wdDoc.Tables(wdDoc.Tables.Count)
        
        ' 填充数据：请根据你的模板表格结构调整单元格索引
        ' 示例规则：Excel列A=Exigence，B=NC，C=Commentaire；Word模板第1行第1格放合并内容，第2行第1格放Commentaire
        newTable.Cell(1, 1).Range.Text = xlWS.Cells(i, "A").Value & Chr(10) & xlWS.Cells(i, "B").Value
        ' 适配长文本自动换行
        newTable.Cell(2, 1).Range.Text = xlWS.Cells(i, "C").Value
        newTable.Cell(2, 1).Range.ParagraphFormat.WordWrap = True
    Next i
    
    ' 删除原始模板表格（按需选择保留或删除）
    templateTable.Delete
    
    ' 清理资源
    xlWB.Close False
    Set xlWB = Nothing
    Set xlApp = Nothing
    Set templateTable = Nothing
    Set newTable = Nothing
    MsgBox "邮件合并完成", vbInformation
End Sub

关键逻辑说明 #

• 可视化文件选择：通过FileDialog实现弹窗选Excel，避免硬编码路径
• 数据循环读取：定位Excel数据范围后，逐行读取每条记录的三个参数
• 表格生成与填充：每次循环复制模板表格，将Exigence与NC通过换行符合并到同一单元格，Commentaire单元格开启自动换行适配长文本
• 格式适配：在后续生成的表格前插入空行，满足表格间留空要求

注意事项 #

1. 需提前在Word中准备好格式正确的模板表格，并根据实际表格结构修改代码中的单元格索引（Cell(row, column)）
2. 确保Excel表头列与代码中的列对应（示例中A=Exigence、B=NC、C=Commentaire，可自行调整）
3. 若模板表格不在文档第一个位置，可通过书签定位（如wdDoc.Bookmarks("TemplateTable").Range.Tables(1)）

内容的提问来源于stack exchange，提问作者Guy-Ghislain APPIAH