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