Range.Underline (Word)

Devuelve o establece el tipo de subrayado aplicado a un intervalo. Aquí puede ver valores posibles para WdUnderline.

ActiveDocument.Words(4).Underline = wdUnderlineDouble