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