当您长时间使用文档或从其他人继承文档时，很有可能包含不再使用的样式。您可能想要摆脱这些样式，但是如果您在不知道它们确实没有被使用的情况下开始删除它们，则可能对文档格式造成危险。

这是宏派上用场的地方。它可以快速搜索文档以查看是否在任何地方使用了特定样式。如果不是，则可以轻松删除样式。下面的宏DeleteUnusedStyles就是这样做的。

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

请注意，如果宏是内置样式，则宏将忽略该样式。这是因为删除内置样式并不会真正删除它，而只会将该样式重置为其原始的默认状态。实际上，Word不允许从文档中删除内置样式。即使不再使用内置样式，而是曾经在文档中使用过内置样式，它仍将显示在样式下拉列表中。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1337）适用于Microsoft Word 97、2000、2002和2003。