请教：如何删除多余混乱样式，回归默认内置样式？

413191246se · 发表于 2017-12-7 00:42

请问各位朋友及杜先生：
有一个问题困扰我多年了，因为会录制宏很多年，但会编辑宏才是最近几年的事。VBA自动排版宏，对大多数文档可以利用 Word 2003 默认内置标题样式来排版，但却有个别文档样式混乱，其中的内置标题样式已经无法规范地排版了（解决方法是：全选/复制/新建文档/纯文本粘贴/排版/OK，或再多写VBA代码来达到正常文档一样的格式），怎么将这些文档中混乱、多余的样式删除、回归、还原到默认、内置样式呢？
请各位朋友不吝赐教，谢谢大家！（请看下面的图片）

褪墨 · 发表于 2017-12-16 10:50

我也尝试着搞这个样式问题，但是一直无法解决。。同求高手赐教。

MCXY · 发表于 2017-12-27 14:32

同样的问题，暂时没研究出来。

wdpfox · 发表于 2017-12-27 17:54

顶你，期待高手。

duquancai · 发表于 2017-12-27 22:42

Sub shishi()
On Error Resume Next
For i = ActiveDocument.Styles.Count To 1 Step -1
ActiveDocument.Styles(i).Delete
Next
End Sub

413191246se · 发表于 2017-12-28 00:46

谢杜先生！代码无效。

wdpfox · 发表于 2017-12-29 14:44

学习了，多谢杜老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO 　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

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

[求助] 请教：如何删除多余混乱样式，回归默认内置样式？