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

silentorigin · 发表于 2011-8-17 09:49

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

希望技术进步，问题解决

ice552006 · 发表于 2011-11-27 10:59

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

wzzjkf · 发表于 2012-8-10 11:43

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

1tianxing1 · 发表于 2012-10-29 21:33

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

fewmuch · 发表于 2013-2-7 10:51

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

yelosheng · 发表于 2014-10-24 15:57

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

xyz74sc · 发表于 2014-10-30 10:44

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

li02 · 发表于 2015-8-1 15:54

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

li02 · 发表于 2015-8-1 16:02

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

yookee · 发表于 2016-11-8 16:47

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多个，要统一风格。统完一遍，又发来更新，居然还不用修订模式，崩溃。

		自动登录	找回密码
密码			免费注册

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