Underline Property Example

This example applies a double underline to the fourth word in the active document.

ActiveDocument.Words(4).Underline = wdUnderlineDouble

This example applies a single underline to the selected text.

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Underline = wdUnderlineSingle
Else
    MsgBox "You need to select some text."
End If