Hi Spiderrific,
Without seeing the macro code, it's hard to say. However, here's a macro to do what you've described:
Code:
Sub Green()
With Selection
.EndKey Unit:=wdLine, Extend:=wdExtend
.Font.ColorIndex = wdGreen
.MoveDown Unit:=wdLine, Count:=1
End With
End Sub