LineFormat.ForeColor (Word)

Devuelve o establece un objeto ColorFormat que representa el color de primer plano de la línea.

Dim docActive As Document 
 
Set docActive = ActiveDocument