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