Word邮件合并（来自MS Access数据源）动态表格

要使用MS Access数据源来实现Word邮件合并，可以使用VBA编写代码来自动化该过程。下面是一个示例代码，演示如何从MS Access数据库中提取数据，并通过Word邮件合并生成动态表格。

Sub MailMergeFromAccess()
    Dim appWord As Word.Application
    Dim docWord As Word.Document
    Dim dbAccess As DAO.Database
    Dim rsData As DAO.Recordset
    
    ' 创建Word应用程序对象
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    
    ' 打开Word模板文件
    Set docWord = appWord.Documents.Open("C:\Path\To\Your\Template.docx")
    
    ' 打开Access数据库
    Set dbAccess = OpenDatabase("C:\Path\To\Your\Database.accdb")
    
    ' 执行查询并获取数据记录集
    Set rsData = dbAccess.OpenRecordset("SELECT * FROM YourTable")
    
    ' 遍历数据记录集
    With rsData
        Do Until .EOF
            ' 在Word文档中插入新的表格行
            docWord.Tables(1).Rows.Add
            ' 填充表格单元格数据
            docWord.Tables(1).Cell(docWord.Tables(1).Rows.Count, 1).Range.Text = !Field1
            docWord.Tables(1).Cell(docWord.Tables(1).Rows.Count, 2).Range.Text = !Field2
            docWord.Tables(1).Cell(docWord.Tables(1).Rows.Count, 3).Range.Text = !Field3
            ' ...
            
            .MoveNext
        Loop
    End With
    
    ' 关闭记录集和数据库对象
    rsData.Close
    dbAccess.Close
    
    ' 执行邮件合并操作
    docWord.MailMerge.MainDocumentType = wdFormLetters
    docWord.MailMerge.OpenDataSource Name:="C:\Path\To\Your\Database.accdb", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "User ID=Admin;Data Source=C:\Path\To\Your\Database.accdb;" & _
        "Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";" & _
        "Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;" & _
        "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;" & _
        "Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;" & _
        "Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;" & _
        "Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
    
    ' 执行邮件合并
    appWord.ActiveDocument.MailMerge.Execute
    
    ' 关闭并保存Word文档
    docWord.Close SaveChanges:=wdSaveChanges
    
    ' 关闭Word应用程序
    appWord.Quit
    
    ' 释放对象引用
    Set rsData = Nothing
    Set dbAccess = Nothing
    Set docWord = Nothing
    Set appWord = Nothing
End Sub

请确保将代码中的文件路径（"C:\Path\To\Your\Template.docx"和"C:\Path\To\Your\Database.accdb"）替换为您的实际文件路径。此外，您还需要将字段名（!Field1，!Field2等）替换为您在数据库中使用的实际字段名。

此代码将打开一个Word文档模板，然后从Access数据库中获取数据并将其插入到Word表格中。最后，它执行邮件合并操作，将数据应用到模板中，并关闭并保存生成的文档。