Font.TextColor (Word)

Returns a ColorFormat object that represents the color for the specified font.

Dim cftTextColor As ColorFormat
Set cftTextColor = Selection.Font.TextColor