如何用VBA把Excel的表格复制到文档

要用 VBA 将 Excel 表格复制到文档，可以按照以下步骤进行：

1. 打开 Excel 文件并按 ALT + F11 组合键打开 VBA 编辑器。

2. 在 VBA 编辑器中，选择插入 -> 模块，然后在新建模块中添加以下代码：

Sub CopyTableToWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object

    '创建 Word 应用程序
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True

    '打开 Word 文档
    Set wdDoc = wdApp.Documents.Open("C:\Users\Documents\Test.docx")

    '选择要插入表格的位置
    Set wdRange = wdDoc.Range(Start:=0, End:=0)

    '复制 Excel 表格
    ThisWorkbook.Sheets("Sheet1").Range("A1:D10").Copy

    '在 Word 中粘贴表格
    wdRange.PasteExcelTable False, True, False
End Sub

3. 修改代码中的文档路径和表格范围，然后运行该宏即可将 Excel 表格复制到 Word 文档中。

注意：在运行该宏之前，请确保 Word 中已经打开了目标文档，并且 Excel 中的表格范围已经正确设置。