UnderlineColor Property Example

This example applies a double underline to the third word in the active document and sets the color of the underline to turquoise.

With ActiveDocument.Words(3)
    .Underline = wdUnderlineDouble
    .Font.UnderlineColor = wdColorTurquoise
End With