该属性返回或设置应用于字体或区域的下划线的类型。WdUnderline，可读写。
| WdUnderline 可以是下列 WdUnderline 常量之一： |
| wdUnderlineDashHeavy |
| wdUnderlineDashLongHeavy |
| wdUnderlineDotDashHeavy |
| wdUnderlineDotDotDashHeavy |
| wdUnderlineDottedHeavy |
| wdUnderlineNone |
| wdUnderlineThick |
| wdUnderlineWavyDouble |
| wdUnderlineWords |
| wdUnderlineDash |
| wdUnderlineDashLong |
| wdUnderlineDotDash |
| wdUnderlineDotDotDash |
| wdUnderlineDotted |
| wdUnderlineDouble |
| wdUnderlineSingle |
| wdUnderlineWavy |
| wdUnderlineWavyHeavy |
expression.Underline
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例给活动文档中的第四个单词添加双下划线。
ActiveDocument.Words(4).Underline = wdUnderlineDouble本示例给所选内容添加单下划线。
If Selection.Type = wdSelectionNormal Then
Selection.Font.Underline = wdUnderlineSingle
Else
MsgBox "You need to select some text."
End If