vba - Word 2007：如何在打开时设置“显示推荐样式”

Question

我试图强制 Word 仅显示一组人将使用的样式。下面的宏只显示了我想要的样式。但这仅在“样式窗格选项”对话框的“选择要显示的样式”下拉列表中选择了“推荐”时才有效。

有没有办法在 vba 中设置它，以便在打开文档时用户只能看到选择的样式？

谢谢，

D

---

公共子样式集（）

' First, turn off all Style visibility:

对于 ActiveDocument.Styles 中的每个 mystyle mystyle.Visibility = True 下一个 mystyle

'update the styles

ActiveDocument.UpdateStyles

' Then, turn on the ones you want to see:

ActiveDocument.Styles("Click").Visibility = False ActiveDocument.Styles("Button").Visibility = False ActiveDocument.Styles("Caption").Visibility = False

'update the styles again
ActiveDocument.UpdateStyles

结束子

Answer 1

你想要 ... ？

ActiveDocument.FormattingShowFilter = wdShowFilterFormattingRecommended
ActiveDocument.StyleSortMethod = wdStyleSortRecommended