Option Explicit

Sub Copy_Paras()
Dim strPath As String
Dim strFilename As String
Dim oTarget As Document
Dim oDoc As Document
Dim oRng As Range
Dim oRng2 As Range
Dim strText As String

    Set oTarget = ActiveDocument
    Set oRng2 = Selection.Range
    strText = InputBox("Enter the text to find")
    If strText = "" Then GoTo lbl_Exit
    strPath = "C:\Path\"        'The folder with the documents

    strFilename = Dir$(strPath & "*.docx")
    While Len(strFilename) <> 0
        Set oDoc = Documents.Open(strPath & strFilename)
        Set oRng = oDoc.Range
        With oRng.Find
            Do While .Execute(FindText:=strText)
                oRng2.Text = oRng.Paragraphs(1).Range.Text
            Loop
        End With
        oDoc.Close SaveChanges:=0
        strFilename = Dir$()
        DoEvents
    Wend
lbl_Exit:
    Set oRng = Nothing
    Set oRng2 = Nothing
    Set oDoc = Nothing
    Set oTarget = Nothing
    Exit Sub
End Sub