本示例为选中文本加点框架。

If Selection.Type = wpsSelectionNormal Then
    Selection.Font.Borders(wpsBorderBottom).LineStyle = wpsLineStyleDashDot
End If