☰

使用 VBA 检查 Word 中加载了哪个样式表

tag-icon • tag-icon microsoft-word vba
使用 VBA 检查 Word 中加载了哪个样式表

我有一个小宏可以自动更改样式，但除非选择了正确的样式表，否则它不会起作用。目前，它看起来像这样：

ActiveDocument.ApplyQuickStyleSet2 ("Anthology")

'change direct formatting to styles
Call DoReplaceStyle("Subtle Emphasis", True)
Call DoReplaceStyle("Bold", , True)

'etc

并且运行正常。但是有没有办法只检查已加载的样式集，而不是每次都重新应用它？

'e.g.
If [current style set] <> "Anthology" Then
      ActiveDocument.ApplyQuickStyleSet2 ("Anthology")
End If

（我是不是想太多了？是的。Word 有时会对样式做出奇怪且难以解释的事情吗？也可能是外星人X档案主题）

相关内容