[已自行解决]如何用VBA删除自定义的文档样式?

keypress

一个文档,有很多的自定义样式如何删除?

想要删除所有的自定义样式...

PS:用样式管理器删除时机器没有响应...

IOtZQjk9.rar (29.49 KB, 下载次数: 30)

2008-1-14 11:09 上传

点击文件名下载附件
[求助]一个文档,有很多的自定义样式如何删除

查了一下，自己写了个小代码：

Sub MyStyleDelete()
Dim i As Style
For Each i In ThisDocument.Styles
    On Error Resume Next
      i.Delete
    Err.Clear
Next i

End Sub

删除了那些乱七八糟的样式。由于WORD内置的样式是无法删除的，所以不用怕删掉内置样式，但这样的代码不经济。希望有高手给一个更好的代码

谢谢高手指点，改后的代码

Sub MyStyleDelete()
Dim i As Style
For Each i In ThisDocument.Styles
    If i.Builtin=False Then  i.Delete
  Next i
End Sub

唉，以上的代码在WORD2003的帮助中就有，但一开始就是查不到，失败！

[此贴子已经被作者于2008-1-14 22:15:29编辑过]

vake521

在自定义样式中,全部隐藏,把自己想用的样式选中,即可.

sylun

以下内容摘自Word2003的VB帮助文件：

本示例实现的功能是：检查活动文档中的所有样式，如果检查到一个非内置样式，则显示该样式的名称。

Dim styleLoop As Style

For Each styleLoop in ActiveDocument.Styles
    If styleLoop.BuiltIn = False Then
        Msgbox styleLoop.NameLocal
    End If
Next styleLoop
	

keypress

QUOTE:

以下是引用sylun在2008-1-14 17:58:07的发言：

以下内容摘自Word2003的VB帮助文件：

本示例实现的功能是：检查活动文档中的所有样式，如果检查到一个非内置样式，则显示该样式的名称。

Dim styleLoop As Style

For Each styleLoop in ActiveDocument.Styles
    If styleLoop.BuiltIn = False Then
        Msgbox styleLoop.NameLocal
    End If
Next styleLoop
 

呵呵，谢谢了，我没有想到用builtin属性，罪过罪过，应该检讨

suntaste

楼主我把你的那个代码复制进去，可是你的那篇文档的样式还是很多啊？我是菜鸟请问怎么操作呢？谢谢

miarua

运行代码没效果，求帮助，谢谢！

413191246se

真正默认的样式是：清除格式，标题1，标题2，标题3。但一些有乱七八糟样式/格式的文档是无法变为默认样式的。