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

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

一篇word文件用时间长了以后，因为修改了很多次的样式，因此在样式框里有很多已经不在使用的样式名，致使样式框里有很多的样式名。

如何才能成批量的将无用的样式删除掉？

我现在是用手工一次一条的删除，非常麻烦。

有那位能帮到我吗？

附件

RUJEmrwm.jpg(53.3 KB)

2005-4-12 13:02

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

删除多个样式

不知楼主想不想使用VBA呢?如果是,请上传一个附件,我试一下.

这样,以后你可以随时删除无用的自定义样式.

终于斑竹出手了，不过，我对VBA不太熟。但是，要是斑竹能引我入门，我是求之不得。

当然，我想除了VBA以外，其他还有办法吗？word能让人们编辑样式，难道就没有办法删除吗？

斑竹可真是一个勤快的人，起来这么早。

我不知道这个是否就是你想要的结果？？

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

附件

toJeDceW.bmp(57.24 KB)

2005-4-13 07:04

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

谢谢斑竹！早起的鸟儿好觅食！

我也试过斑竹所说的方法，但是在那个里面也只是有部分样式是不需要，在文档里还是有很多不需要的样式出现。

5853lNUu.rar (39.18 KB)

5853lNUu.rar (39.18 KB)
求助：关于多余的样式如何批量删除
下载次数: 18

2005-4-13 07:27

我上传一个附件，请斑竹看一下。这只是我截取长文档的一部分，然后在最后附了一张截图，图中最右边的滚动条那么长，里面有很多的不需要的样式。请斑竹帮我看一下。

在2002以后的版本里，格式越来越不好用了。我也经常碰到一些文件，里面的格式繁杂得像个大都会。

这个问题是该深入研究、总结一下了。

样式本来是一个很好用的功能，对长文件的编辑，是方便不少。但是我不知道word里是否有小bug。有时有使用多级编号时，总有不能按照自己的意愿的事情发生。

我也曾在论坛求助过一些，但是总是没有一个圆满的结果。

希望能有高手能够解决。我对应用方面有一些心得，对深层次的问题就不太明白了。

TO 楼主：这个问题，已经缠着我好几天了，运行结果总是不满意。

你对手动地将哪些未使用的样式列表一下吗？我需要比对。我对于样式，应用得不多。

现在的问题，由于样式分为内置和自定义，其中的自定义中，又分为基于某一种样式上修改的样式；在用户使用样式中，可以由正在使用的样式，也有未使用的样式，在查找格式过程中，程序出现判断错误，导致一部分样式不能被正确提取出来。

我尝试了好几个方法，还是不尽如人意。

麻烦youyou300兄手动列一下，我们共同解决此问题。

OK？

感谢斑竹在百忙之中还在想着这样一个问题。不过要是对内置样式全部一个一个列出来可能有许多。

有一个办法可以实现内置样式全部列出，不过这个办法可能有些笨笨的，那就是对“Normal.dot”进行删除，然后重新打开一个空白的word文件，在样式和格式的修改栏里看到全部内置样式。

C:\Documents and Settings\用户名\Application Data\Microsoft\Templates

这是Normal.dot的路径。我的系统是XP，2003office。

TO youyou300兄，你误解我的意思了。

对于内置样式，以及你的自定义样式，共154个，我可以直接罗列出来（用代码），问题我在上面已写得很清楚了。我希望你能抽空将你上传附件中的无用的非内置样式列表出来（可能需要你一个一个检查，也就是你希望删除的样式），然后，我再运行代码，比对一下，两者之间的差异。

因此，我需要你的配合，我们共同来完成这个事情。

我知道了你的意思了。

不过，针对不同的文件，里面多余的样式是不一样的。

下图中所示的选项应该能满足楼主的要求。

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

附件

0bcZd4oA.jpg(36.35 KB)

2005-4-18 09:47

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

打开样式对话框，选取你定义的样式，点击删除就可以的

我刚才试过拉