Word允许您创建样式来定义文档中的文本应如何显示。除了内置样式的完整列表之外,Word还允许您创建可能需要的任何自定义样式。您可以稍后为文档打印样式表,如_WordTips_的其他问题所述。

但是,如果您只想列出自定义样式,该怎么办? Word不包含允许您区分样式表打印输出中包含哪些样式的功能。如果要在文档中使用自定义样式的列表,则可以使用宏来创建一个。下面的宏逐步浏览所有样式,并编译满足两个条件(自定义和使用)的样式列表:您还可以阅读ActivePrinter属性

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

请记住,“自定义样式”和“自定义样式”之间是有区别的。 (如果更改样式的默认特征,则内置样式可以是自定义样式。)它完全忽略了Word认为内置的那些样式。

注意:

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

链接:/ wordribbon-WordTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

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

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(8339)适用于Microsoft Word 2007、2010和2013。您可以在此处找到适用于Word的较早菜单界面的本技巧的版本:

链接:/ word-Printing_a_List_of_Custom_Styles [打印自定义样式列表]。