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

使用Word VBA将选定内容从Word复制到Excel可以通过以下步骤实现：

打开Word文档并按下Alt + F11打开VBA编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中编写以下VBA代码：

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

修改代码中的文件路径，将"C:\Path\To\Your\Word\Document.docx"替换为你要复制内容的Word文档路径，将"C:\Path\To\Your\Excel\File.xlsx"替换为你要保存Excel文件的路径。
按下F5运行代码，选定的内容将被复制到Excel工作表中的单元格A1处。

这是一个基本的示例，你可以根据需要进行修改和扩展。请注意，这个示例中使用的是Microsoft Office的VBA，如果你使用的是其他版本的Office或者其他办公软件，可能需要进行相应的调整。