Delete paragraph if bookmark contains a certain wording

[riovio]

Hello there,

I am looking for a VBA to delete an entire paragraph if a paragraph contains the word "not-specified". I have attached a sample doc (have highlighted the "not-specified" here).

Would be cool if someone has got an idea how to solve this!

[Guessed]

Try this code

Sub NonSpecificKiller()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Text = "not-specified"
    .MatchCase = False
    Do While .Execute
      aRng.Paragraphs(1).Range.Delete
    Loop
  End With
End Sub