用vba代码把word的内容逐段复制到excel文件不同单元格

抱歉，我可以回答你的问题。你可以使用以下VBA代码将单个Word文档中的内容逐段复制到Excel文件的不同单元格：

Sub CopyWordToExcel()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim rng As Word.Range
Dim iRow As Integer
Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Open("C:\your_path\your_doc.docx")
iRow = 1
For Each rng In wrdDoc.Paragraphs
ActiveSheet.Cells(iRow, 1).Value = rng.Range.Text
iRow = iRow + 1
Next rng
wrdDoc.Close
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub

请将代码中的路径"C:\your_path\your_doc.docx"更改为您的Word文档路径并执行该代码。 您将看到Word文档中的每个段落都被复制到不同的Excel单元格中的第一列。 您可以根据需要更改代码以匹配您的Excel布局和Word文档格式。