The following macro will copy each paragraph in the current document, that contains the word or phrase entered, to a new document.
http://www.gmayor.com/installing_macro.htm
Code:
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