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

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