LineFormat.ForeColor (Word)

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

Dim docActive As Document 
 
Set docActive = ActiveDocument