刚好我之前处理过类似的需求，给你一套完整的解决方案——不用手动逐个指定数据点，能自动匹配Excel和Word里的表格并同步更新，完美解决你大量表格同步的痛点：

我们通过名称匹配+自动适配尺寸的逻辑实现同步：

• 让Word表格的「Alt文本标题」和Excel工作表的名称完全一致，作为宏的匹配标识
• 宏自动读取Excel工作表的所有已用数据区域，在Word中创建对应尺寸的表格并填充数据，彻底摆脱手动指定数据点的麻烦

1. 前期准备 #

• Excel端：给每个需要同步的工作表命名（比如「Q3销售数据」「用户留存分析」），确保工作表里的数据是连续的区域（从A1开始最佳，非连续也能调整代码适配）
• Word端：插入对应表格后，选中表格→右键→表格属性→Alt文本，在「标题」栏填写和Excel工作表完全相同的名称（这是宏识别匹配的关键）

2. Word宏代码实现 #

打开Word，按下Alt+F11打开VBA编辑器，点击「插入」→「模块」，粘贴以下代码：

Sub SyncExcelTablesToWord()
    Dim excelApp As Object
    Dim excelWB As Object
    Dim ws As Object
    Dim wordTable As Table
    Dim excelRange As Object
    Dim tableName As String
    Dim excelFilePath As String
    
    ' 让用户选择要同步的Excel文件
    excelFilePath = Application.GetOpenFilename("Excel文件 (*.xlsx;*.xls), *.xlsx;*.xls")
    If excelFilePath = "False" Then Exit Sub
    
    ' 后台启动Excel（不显示窗口，避免干扰）
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False ' 如需查看Excel操作，可改为True
    Set excelWB = excelApp.Workbooks.Open(excelFilePath)
    
    ' 遍历Word中所有带标题的表格
    For Each wordTable In ActiveDocument.Tables
        tableName = wordTable.Title
        If tableName <> "" Then
            ' 检查Excel是否存在同名工作表
            On Error Resume Next
            Set ws = excelWB.Worksheets(tableName)
            On Error GoTo 0
            
            If Not ws Is Nothing Then
                ' 获取Excel工作表的已用数据区域
                Set excelRange = ws.UsedRange
                
                ' 清空Word表格旧数据，准备同步新内容
                wordTable.Range.Delete
                
                ' 根据Excel表格尺寸重新创建Word表格
                ActiveDocument.Tables.Add _
                    Range:=wordTable.Range, _
                    NumRows:=excelRange.Rows.Count, _
                    NumColumns:=excelRange.Columns.Count
                
                ' 复制Excel数据到Word表格
                excelRange.Copy
                ActiveDocument.Tables(ActiveDocument.Tables.Count).Range.PasteExcelTable _
                    LinkedToExcel:=False, _
                    WordFormatting:=False, _
                    RTF:=False
                
                ' 重新设置表格标题（因为新建表格会丢失原标题）
                ActiveDocument.Tables(ActiveDocument.Tables.Count).Title = tableName
            End If
            Set ws = Nothing
        End If
    Next wordTable
    
    ' 关闭Excel并释放资源
    excelWB.Close SaveChanges:=False
    excelApp.Quit
    Set excelRange = Nothing
    Set ws = Nothing
    Set excelWB = Nothing
    Set excelApp = Nothing
    
    MsgBox "表格同步完成！", vbInformation
End Sub

3. 代码细节说明 #

• 匹配逻辑：完全依赖Word表格的Alt文本标题和Excel工作表名称，只要两者一致就会自动同步，新增表格只需添加对应名称即可
• 尺寸适配：自动读取Excel的已用数据区域，不用提前固定Word表格的行数/列数，数据区域变化后宏会自动适配
• 格式选项：如果想保留Word原有的表格格式（比如字体、底色），可以把WordFormatting:=False改成True；如果需要实时链接Excel数据（无需手动运行宏），可将LinkedToExcel:=False改为True（注意：链接后Excel文件路径不能随意更改）

4. 使用方法 #

1. 把Word文档保存为启用宏的格式（.docm），否则宏会被禁用
2. Excel数据更新后，打开Word文档，按下Alt+F8，选择SyncExcelTablesToWord宏运行
3. 在弹出的窗口中选择要同步的Excel文件，等待提示同步完成即可

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