求大神帮助，紧急，谢谢！

miarua · 发表于 2019-5-19 21:27

网上查了这个代码，运行没效果，求帮助，谢谢！

论坛上找到这个代码：
查了一下，自己写了个小代码：
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的帮助中就有，但一开始就是查不到，失败！

413191246se · 发表于 2019-5-20 00:16

楼主，你修改后的代码仍然无效！我原来试过，该有的乱七八糟的格式/样式还是存在的！

wdpfox · 发表于 2019-5-20 09:54

本帖最后由 wdpfox 于 2019-5-20 23:01 编辑

可以通过，要通用，把thisdocument改为activedocument即可。

莫愁前路无知己，天下谁人不识君！海内存知己，天涯若比邻！

miarua · 发表于 2019-5-20 17:51

wdpfox 发表于 2019-5-20 09:54
可以通过，要通用，把thisdocument改为activedocument即可。

我按照您的意见修改了，但是修改完之后的效果是，有一部分删除了，但是还有一部分删除掉，求指导！谢谢！

wdpfox · 发表于 2019-5-20 22:56

本帖最后由 wdpfox 于 2019-5-20 23:00 编辑

我用后没问题呀

wdpfox · 发表于 2019-5-20 23:03

你提供个附件，我这里没发现问题

miarua · 发表于 2019-5-22 23:07

wdpfox 发表于 2019-5-20 23:03
你提供个附件，我这里没发现问题

已测试解决谢谢！

memoryjava1 · 发表于 2019-5-24 09:32

请问这个在2016版本可用吗？我运行了之后，原来几十个没用的样式都还在。

wdpfox · 发表于 2019-5-24 10:03

memoryjava1 发表于 2019-5-24 09:32
请问这个在2016版本可用吗？我运行了之后，原来几十个没用的样式都还在。

我就是在2016上运行的。

莫愁前路无知己，天下谁人不识君！海内存知己，天涯若比邻！

memoryjava1 · 发表于 2019-5-24 10:30

求帮忙测试，见附件，谢谢
提示运行时错误5122，样式名不存在

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