通过将Count属性与Styles对象一起使用，可以确定文档中（创建VBA宏时）可用的样式数量。这是使用以下语法完成的：

x = ActiveDocument.Styles.Count

其中x是您可以在其他VBA宏行中使用的变量。请注意，此函数指示已定义了多少个，而不是实际使用了多少个。这意味着内置样式也将被计算在内。如果要排除内置样式，则可以通过以下方式对样式进行实际的迭代计数：

x = 0 For Each objStyle in ActiveDocument.Styles     If Not objStyle.BuiltIn Then x = x + 1 Next objStyle

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（803）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

确定可用的样式数。