VBA读取word中的内容到Excel中

Public Sub Duqu()

Dim myFile As String

Dim docApp As Word.Application

Dim docRange As Word.Range

myFile = ThisWorkbook.Path & "\Word文档的名字" '指定Word文档

Set docApp = New Word.Application

docApp.Documents.Open myFile

For i = 1 To docApp.ActiveDocument.Paragraphs.Count

With docApp.ActiveDocument

'If .Paragraphs.Count >= 4 Then

Set docRange = .Paragraphs(i).Range

cp = cp & docRange

'End If

End With

Next i

Range("a1") = cp

docApp.Quit

Set docRange = Nothing

Set docApp = Nothing

Set ws = Nothing

End Sub

巴特西