本示例为把选定文档设置双下划线,并将下划线颜色设为青绿色。

With Selection.Font
    .Underline = wpsUnderlineDouble
    .UnderlineColor = wpsColorTurquoise
End With