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