使用VBA将活动Word文档复制粘贴到活动Excel文档

Sub CopyWordToExcel()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWorkbook As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开活动Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 将Word文档内容复制到剪贴板
    wordDoc.Content.Copy
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开活动Excel文档
    Set excelWorkbook = excelApp.ActiveWorkbook
    
    ' 将剪贴板中的内容粘贴到Excel文档
    excelWorkbook.Sheets(1).Range("A1").PasteSpecial
    
    ' 关闭并保存Word文档
    wordDoc.Close SaveChanges:=False
    
    ' 关闭Word应用程序
    wordApp.Quit
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 显示Excel应用程序
    excelApp.Visible = True
End Sub