使用VBA，我想将MS Word文档中的所有文本复制到MS Excel中，其中Excel列出了文档及其位置

Sub CopyTextFromWordToExcel()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim ExcelApp As Object
    Dim ExcelSheet As Object
    Dim WordFilePath As String
    Dim ExcelFilePath As String
    Dim Text As String
    Dim RowNum As Integer
    
    ' 设置Word文件路径和Excel文件路径
    WordFilePath = "C:\path\to\word.docx"
    ExcelFilePath = "C:\path\to\excel.xlsx"
    
    ' 创建Word和Excel对象
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(WordFilePath)
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelSheet = ExcelApp.Workbooks.Open(ExcelFilePath).Sheets(1)
    
    ' 复制Word文档中的文本到Excel
    RowNum = 1
    For Each Paragraph In WordDoc.Paragraphs
        Text = Paragraph.Range.Text
        ExcelSheet.Cells(RowNum, 1).Value = Text
        RowNum = RowNum + 1
    Next Paragraph
    
    ' 关闭并保存Word和Excel文件
    WordDoc.Close SaveChanges:=False
    WordApp.Quit
    ExcelSheet.Save
    ExcelApp.Quit
    
    ' 释放对象
    Set WordDoc = Nothing
    Set WordApp = Nothing
    Set ExcelSheet = Nothing
    Set ExcelApp = Nothing
    
    MsgBox "文本已成功复制到Excel中。"
End Sub