object representing the color information for the specified object.
expression.Color
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example tests the font color of the first story in the active document and tells the user if the font color is black or not.
Sub FontColor()
If Application.ActiveDocument.Stories(1) _
.TextRange.Font.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) Then
MsgBox "Your font color is black"
Else
MsgBox "Your font color is not black"
End If
End Sub