本示例对格式进行筛选,在“样式和格式”任务窗格中仅显示活动文档中使用的格式。

With ActiveDocument
    .FormattingShowFilter = wpsShowFilterFormattingInUse
End With