本示例将要删除的文本的格式设置为删除线。

Options.DeletedTextMark = wpsDeletedTextMarkStrikeThrough

 

本示例返回“选项”对话框中“修订”选项卡上“标记”框中的“删除内容”选项的当前状态。

Dim lngTemp As Long
lngTemp = Options.DeletedTextMark