Range.Underline (Word)

Retorna ou define o tipo de sublinhado aplicado a um intervalo. Leitura/gravação WdUnderline. Aqui você pode encontrar os valores possíveis para WdUnderline.

ActiveDocument.Words(4).Underline = wdUnderlineDouble