Microsoft Office Forums - View Single Post - [Solved] Check if there is more than one font color used in a document

macropod · 01-26-2019, 10:49 PM

Testing whether a document uses more than one font colour or highlight is as simple as:

Code:

Sub Demo()
With ActiveDocument.Range
  MsgBox "Font Colour: " & .Font.ColorIndex
  MsgBox "Highlight Colour: " & .HighlightColorIndex
End With
End Sub

If the returned value is 9999999 for either, there is more than one of that property in use (no highlight counts as one).