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

使用VBA，可以将MS Word文档中的所有文本复制到MS 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

这段代码通过创建Word和Excel对象，打开相应的文件，然后遍历Word文档中的段落，将每个段落的文本复制到Excel的第一列中。最后关闭并保存Word和Excel文件，并释放对象。

这个方法适用于需要将多个Word文档中的文本整理到Excel表格中的情况，例如批量处理合同、报告等文档。