求助：关于多余的样式如何批量删除

silentorigin

关注，期待有好的解决方法
现在也遇到这个问题了

希望技术进步，问题解决

ice552006

{:soso_e100:},关注中，期待解决

wzzjkf

期待问题解决啊，这个问题困扰很久了

1tianxing1

哎，我现在也遇到这个问题了 的确头痛啊 继续顶起这个帖子 希望有解决的一天

fewmuch

office 2013 都出来了，这问题咋地还没解决捏

yelosheng

2014年10月24日。标记。问题依旧。

xyz74sc

跟版主一样，如果不清楚什么叫无用样式，代码就写不出来，提问跟贴的也没有谁说明了哪种样式是无用的，那该怎么删除？

li02

保持关注
保持关注
保持关注

li02

Visual Basic for Applications
For Each sty In ActiveDocument.Styles
    If sty.BuiltIn = False Then sty.Delete
Next sty
这是删除所以用户定义的样式
所谓无用，应该指的是未使用过的样式

yookee

http://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_other/word-2010-how-does-one-remove-any-unused-styles-in/d9d879ea-d89f-453d-bc8e-6d3dd6f4e48d
我自己用其他语言调用OLE对象操作了一下
1.用InUse判断没用，你能看到的样式InUse都是True，因为曾经被用过；
2.连接里的最佳答案提供了4个方案，主要两种方式：
(1)把所有Paragraphs列出来，把这些Paragraphs的样式搞成一个集合，然后用文档的所有样式去匹配，有就是真用的，没有就删除；
(2)把文档的样式用ActiveDocument.Content.Find挨个查找，没找到就删；
3.其实Style里的几个布尔属性对判断没有多大用处，同样属性的样式有的能删，有的不能删，有的样式访问某些属性还会出错，vba里有错误处理机制吗？
4.方法(1)我的一个文档有7000多个段落，ole效率太低，列一遍用了几个小时，适合有重度强迫症的，可以找出一些用得少的样式和其他合并；
5.没有用的样式，有的能删除，有的不能，有的真被删除了，有的只是隐藏了。
6.很多域内容不算段落，比如有些域用到的样式在段落里找不到，你要删除就会出错。

折腾了一天，强迫自己不要再搞下去了。
合十几个人的稿太痛苦了，样式800多个，要统一风格。统完一遍，又发来更新，居然还不用修订模式，崩溃。