vba - 合并字母中的 VBA 表

Question

我有一个包含大量客户数据的 Excel 表。所有客户都有共同的数据（地址、姓名等），我将其实现为简单的合并字段。一些客户有多个数据集，应在合并信函的末尾添加为表格。为了从我的 excel 表中查找数据，我已经想出了以下代码。noInt 是客户数量，而 noData 是不同数据集的数量（所有客户一起，一些倍数）。exWb 是我的数据来自的 excel 工作簿，我想在表格中显示的数据位于第 5 到第 9 列。

For i = 2 To noInt
    
    For k = 2 To noData
        
        If exWb.Sheets("Table1").Cells(k, 1) = exWb.Sheets("Table2").Cells(i, 1) Then
            For j = 5 To 9

插入表 exWb.Sheets("Table1").Cells(k, j)

            Next j
        End If
    Next k
Next i

现在我的问题：

如何在占位符“insert_table_here”之后将此数据插入新创建的表中？
我如何确保对于邮件合并系列中的每封信，只有该信函所涉及的客户数据包含在此表中？

为了找到解决方案，我已经考虑过是否有一个函数可以提供当前的“邮件合并号”。在这种情况下，我可以将字段 (MailMergeNumber, 1) 与 (k,1) 进行比较，以仅显示包含当前客户的结果。

使其更易于理解的示例：

亲爱的A先生，

...

A先生购买的物品表

-文件结束-

亲爱的 B 先生，

...

B先生购买的物品表

-文件结束-

等等...

score 1 · Accepted Answer

如果您从模板创建 Word 文档（这通常是我发现的最简单的方法），您可以在模板文档中添加一个表格，其中包含您需要的标题行和 1 个空白行用于数据。然后，在填充了基本的合并字段之后，您可以遍历当前的客户字段，在您进行时将新行添加到 Word 表中。像这样的东西：

Dim exWs as Excel.Worksheet
Dim CurrentCustomerFirstCell as Excel.Range
Dim CurrentCustomerActiveCell as Excel.Range
Dim EmpRowOffset as integer
Dim wdDoc as Word.Document
Dim wdTable as Word.Table, wdCell as Word.Cell

' set up your existing references, including (I assume) to the Word document you're updating

set exWs = exWb.Sheets("Table1")

' initialize row for current employee
CurrentCustomerFirstCell = exWs.Cells(2,1)

do while CurrentCustomerFirstCell.Row <= noData ' consider renaming noData to somthing like "numberOfRows"
    ' populate basic mergefields
    wdDoc.Fields(1).Result.Text = CurrentCustomerFirstCell.Value
    ' etc.

    ' populate table in Word document
    set wdTable = wdDoc.Tables(1)

    EmpRowOffset = 0
    set CurrentCustomerActiveCell = CurrentCustomerFirstCell.Offset(Rowoffset:=EmpRowOffset)

    set wdTable = wdDoc.Tables(1)

    do while CurrentCustomerActiveCell.Value = CurrentCustomerFirstCell.Value
        ' this code would update the first "data" row in the existing Word table
        ' to the 6th column of the active employee row
        set wdCell = wdTable.Cell(Row:=2 + EmpRowOffset, Column:=1)
        wdCell.Range.Text = _
                CurrentCustomerActiveCell.Offset(columnoffset:=5).Value
        wdTable.Rows.Add

        EmpRowOffset = EmpRowOffset + 1
        set CurrentCustomerActiveCell = CurrentCustomerFirstCell.Offset(RowOffset:=EmpRowOffset)
    Loop

    ' now that we're finished processing the employee, update CurrentCustomerFirstCell
    set CurrentCustomerFirstCell = CurrentCustomerActiveCell
loop