FillFormat.ForeColor (Word)

Devuelve o establece un objeto ColorFormat que representa el color de primer plano del relleno.

Dim docActive As Document 
 
Set docActive = ActiveDocument