And to include a Cancel option by building on to Graham's code
Code:
Sub Delete_Sentence_if_Word_found()
Dim strTexts As String, oRng As Range, iResponse As Integer
strTexts = InputBox("Enter texts to be found here: ")
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
While .Execute(findText:=strTexts)
oRng.Expand Unit:=wdSentence
oRng.Select
ActiveDocument.ActiveWindow.ScrollIntoView oRng, True
iResponse = MsgBox("Are you sure to delete the sentence?", vbYesNoCancel)
If iResponse = vbYes Then
oRng.Text = ""
ElseIf iResponse = vbCancel Then
Exit Sub
End If
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub