FillFormat.ForeColor (Word)

Returns or sets a ColorFormat object that represents the foreground color for the fill.

Dim docActive As Document 
 
Set docActive = ActiveDocument