Sub EvaluateTextByFontColor()
Dim oCol As New Collection
Dim oRng As Range
Dim lngIndex As Long
Dim varParts As Variant
Dim arrColors() As String
  arrColors = Split("238|255|49407", "|")
  For lngIndex = 0 To UBound(arrColors)
    Set oRng = ActiveDocument.Range
    'Find all instances of text formated RGB 238, 255 and 49407
    With oRng.Find
      .Font.TextColor.RGB = arrColors(lngIndex)
       While .Execute
         oCol.Add oRng.Start & "|" & oRng.End
         oRng.Collapse wdCollapseEnd
       Wend
    End With
  Next lngIndex
  fcnSortColumn oCol
  'Loop through collection of ranges to evaluate.
  For lngIndex = 1 To oCol.Count
    varParts = Split(oCol(lngIndex), "|")
    ActiveDocument.Range(varParts(0), varParts(1)).Select
    If MsgBox("Convert to black?", vbQuestion + vbYesNo, "CONVERT") = vbYes Then
      Selection.Font.TextColor = wdColorBlack
    End If
  Next lngIndex
lbl_Exit:
  Exit Sub
End Sub
Public Function fcnSortColumn(ByVal oColPassed As Collection) As Collection
Dim lngA As Long, lngB As Long
Dim vOld As Variant
Dim varP1 As Variant, varP2 As Variant
  For lngA = 1 To oColPassed.Count - 1
    varP1 = Split(oColPassed(lngA), "|")(0)
    For lngB = lngA + 1 To oColPassed.Count
      varP2 = Split(oColPassed(lngB), "|")(0)
      If varP1 > varP2 Then
        vOld = oColPassed(lngB)
        oColPassed.Remove lngB
        oColPassed.Add vOld, vOld, lngA
      End If
    Next lngB
  Next lngA
  Set fcnSortColumn = oColPassed
lbl_Exit:
  Exit Function
End Function