WdUnderline can be one of these WdUnderline constants. |
wdUnderlineDashHeavy |
wdUnderlineDashLongHeavy |
wdUnderlineDotDashHeavy |
wdUnderlineDotDotDashHeavy |
wdUnderlineDottedHeavy |
wdUnderlineNone |
wdUnderlineThick |
wdUnderlineWavyDouble |
wdUnderlineWords |
wdUnderlineDash |
wdUnderlineDashLong |
wdUnderlineDotDash |
wdUnderlineDotDotDash |
wdUnderlineDotted |
wdUnderlineDouble |
wdUnderlineSingle |
wdUnderlineWavy |
wdUnderlineWavyHeavy |
expression.Underline
expression Required. An expression that returns one of the objects in the Applies To list.
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