目 录CONTENT

文章目录

删除word中多余的样式

ming8918
2023-04-07 / 1 评论 / 0 点赞 / 1152 阅读 / 1006 字 / 正在检测是否收录...
温馨提示:
本文最后更新于 2023-09-18,若内容或图片失效,请留言反馈。部分素材来自网络,若不小心影响到您的利益,请联系我们删除。

成百上千的样式

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

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

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 视图菜单下找到宏,运行宏(文件大要多等会,有可能假死),运行完毕,留下就是用了的样式和内置样式了!

0

评论区