本示例对所选文字应用双删除线格式。

If Selection.Type = wpsSelectionNormal Then
    Selection.Font.DoubleStrikeThrough = True
Else
    MsgBox "You need to select some text."
End If