It would have been better had you started a new thread, however you can however find a sentence containing a word or words using Range.Find e.g.
Sub Macro1()
Const strFind As String = "lorem|ipsum" 'The words to find, each separated by '|'
Dim vFind As Variant
Dim orng As Range, oText As Range
Dim i As Long
vFind = Split(strFind, "|")
For i = LBound(vFind) To UBound(vFind)
Set orng = ActiveDocument.Range
With orng.Find
Do While .Execute(FindText:=vFind(i))
Set oText = orng.Sentences(1)
oText.Select
MsgBox vFind(i) & vbCr & oText.Text
orng.Collapse 0
Loop
End With
Next i
lbl_Exit:
Exit Sub
End Sub