删除word中多余的样式

成百上千的样式

一个文档，成百上千的样大，看着发麻，用着极度不方便。必须得去除没用的，再来编辑，不然都无从下手。

这类文件通常都是复制粘贴，多人编辑，最后出现非常多的样式！

VB代码去除

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

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

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

ALT+F11 ，打开VB编辑器，插入模块，在模块中输入上面的代码，保存。在WORD 视图菜单下找到宏，运行宏（文件大要多等会，有可能假死），运行完毕，留下就是用了的样式和内置样式了！