如何使用word VBA将选定内容从Word复制到excel

Sub CopySelectedContentToExcel()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdSelection As Object
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim rng As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 可见性设置为True以便于调试
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 获取当前选定内容
    Set wdSelection = wdApp.Selection
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' 可见性设置为True以便于调试
    
    ' 创建新的Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Add
    Set xlWorksheet = xlWorkbook.Worksheets(1)
    
    ' 将选定内容复制到Excel工作表
    wdSelection.Copy
    xlWorksheet.Range("A1").PasteSpecial
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 保存并关闭Excel工作簿
    xlWorkbook.SaveAs "C:\Path\To\Your\Excel\File.xlsx"
    xlWorkbook.Close
    
    ' 关闭Excel应用程序
    xlApp.Quit
    
    ' 释放对象引用
    Set rng = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set wdSelection = Nothing
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub