Range.Underline (Word)

Returns or sets the type of underline applied to a range. Here you can find possible values for WdUnderline.

ActiveDocument.Words(4).Underline = wdUnderlineDouble