Range.Underline (Word)

Cette propriété renvoie ou définit le type de soulignement appliqué à une plage. Ici on trouve valeurs possible pour WdUnderline.

ActiveDocument.Words(4).Underline = wdUnderlineDouble