如何使用VBA从MS word单元格中获取内容并将其清理为Excel

VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，它可以与Microsoft Office套件中的各种应用程序（如Word、Excel、PowerPoint等）进行交互。下面是使用VBA从MS Word单元格中获取内容并将其清理为Excel的步骤：

打开Excel并创建一个新的工作簿。
按下Alt + F11打开VBA编辑器。
在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新的模块。
在模块中编写以下VBA代码：

Sub GetContentFromWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordTable As Object
    Dim excelSheet As Worksheet
    Dim row As Integer
    Dim col As Integer
    
    ' 创建一个新的Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 设置要读取的表格
    Set wordTable = wordDoc.Tables(1)
    
    ' 在Excel中选择要粘贴内容的工作表
    Set excelSheet = ThisWorkbook.Sheets("Sheet1")
    
    ' 循环遍历Word表格中的每个单元格，并将其复制到Excel中
    For row = 1 To wordTable.Rows.Count
        For col = 1 To wordTable.Columns.Count
            excelSheet.Cells(row, col).Value = wordTable.Cell(row, col).Range.Text
        Next col
    Next row
    
    ' 关闭Word文档和应用程序对象
    wordDoc.Close
    wordApp.Quit
    
    ' 释放对象变量
    Set wordTable = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
    
    MsgBox "内容已成功从Word单元格中获取并清理到Excel中。"
End Sub