'Remove the No Color line
Sub NoCorrelateRemove()
Dim lineRange As Range
Dim searchRange As Range
'Search the entire document
Set searchRange = ActiveDocument.Content
Do
  'Find the No Color line
  With searchRange.Find
    .ClearFormatting
    .Wrap = wdFindStop
    .Forward = True
    .Text = "No Color"
    .Execute
    If Not .Found Then
      Exit Do
    End If
  End With
  'create a range that covers this entire line
  Set lineRange = ActiveDocument.Range(searchRange.Start = 1, searchRange.End = 5)
  lineRange.Expand wdParagraph
  lineRange.Delete
Loop
End Sub