Sub GetParas()
Dim oDoc As Document
Dim oRng As Range
Dim strKeyWord As String
    strKeyWord = InputBox("Enter the word to find")
    If strKeyWord = "" Then GoTo lbl_Exit
    Set oRng = ActiveDocument.Range
    Set oDoc = Documents.Add
    With oRng.Find
        Do While .Execute(FindText:=strKeyWord, _
                          MatchCase:=False, _
                          MatchWholeWord:=True)
            oDoc.Range.InsertAfter oRng.Paragraphs(1).Range.FormattedText
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub