Color Property

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