选择要显示的样式 Sub 样式显示(): ActiveDocument.StyleSortMethod = wdStyleSortByName ActiveDocument.FormattingShowFilter = wdShowFilterStylesInUse End Sub