How can I count the number of words for a specific colorindex

[gmaxey]

Paul,

That got things closer but then the count was off for "automatic color" text in the sample above. This worked though for both cases. Thanks

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
Set Rng = Selection.Range
With ActiveDocument.Range
  .Font.Hidden = True
    With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<*>" 'Revised GKM
    .Font.Color = Rng.Characters.First.Font.Color
    .Replacement.Text = "~*~ " 'Revised GKM
    .Replacement.Font.Hidden = False
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchWildcards = True 'Added GKM
    .MatchCase = False
    .Execute Replace:=wdReplaceAll
  End With
  i = .ComputeStatistics(wdStatisticWords)
  Undo 2
End With
Rng.Select
Application.ScreenUpdating = True
MsgBox "There are " & i & " words in the selected colour.", vbInformation
End Sub