尝试创建VBA以将Excel表格粘贴到Word中

Sub PasteExcelTableToWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim xlRange As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 可见性设置为True以显示Word应用程序
    
    ' 打开一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False ' 可见性设置为False以隐藏Excel应用程序
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")
    
    ' 指定要复制的工作表和范围
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
    Set xlRange = xlWorksheet.Range("A1:D10")
    
    ' 将Excel表格复制到剪贴板
    xlRange.Copy
    
    ' 在Word文档中粘贴表格
    Set wdRange = wdDoc.Range
    wdRange.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 关闭Excel文件
    xlWorkbook.Close SaveChanges:=False
    
    ' 退出Excel应用程序
    xlApp.Quit
    
    ' 释放对象变量
    Set xlRange = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    ' 释放对象变量
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub