'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

Sub NoCorrelateRemove()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range, sVpos As Single
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "No Color"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    i = .Duplicate.Information(wdActiveEndPageNumber)
  Set Rng = ActiveDocument.GoTo(What:=wdGoToPage, Name:=i)
  Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
    sVpos = 0
    With Rng
      For i = 1 To .Frames.Count
        If InStr(1, .Frames(i).Range.Text, "no color", vbTextCompare) Then
          .Frames(i).RelativeVerticalPosition = wdRelativeVerticalPositionPage
          sVpos = .Frames(i).VerticalPosition - 4
          Exit For
        End If
      Next
      For i = .Frames.Count To 1 Step -1
        With .Frames(i)
          If .VerticalPosition > (sVpos) Then
            If .VerticalPosition < (sVpos + 36) Then
              .Cut
            End If
          End If
        End With
      Next
    End With
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub