如何通过VBA使word全文变成正文格式呢

yuanfuyong · 发表于 2019-5-8 14:36

如图，就是使整个文档变为正文格式。

daibao88 · 发表于 2019-5-8 15:19

ActiveDocument.Content.Style = ActiveDocument.Styles("正文")

413191246se · 发表于 2019-5-8 15:28

Sub test()
With Selection
.WholeStory
.ClearFormatting
End With
End Sub

复制代码

yuanfuyong · 发表于 2019-5-8 16:22

谢谢两位老师，都能实现，但是还有个小小的问题，为什么我在文件选项快速访问工具栏宏中
添加快捷按钮后运行了，不能实现修改正文呢？

yuanfuyong · 发表于 2019-5-9 10:37

413191246se 发表于 2019-5-8 15:28

谢谢两位老师，都能实现，但是还有个小小的问题，为什么我在文件选项快速访问工具栏宏中
添加快捷按钮后运行了，不能实现修改正文呢？

yuanfuyong · 发表于 2019-5-9 16:55

搞定了，是因为有两个模块重名，改下名字就好了

413191246se · 发表于 2019-5-9 23:56

楼主，请注意分别：
——daibao88 朋友的代码，是将全文修改为正文样式，没有错误；但是，有可能某些文字比如原来是红色，设置后仍然是红色，就是说，全文已经是正文样式了，但有些格式还是不一致的。
——我的代码，我猜楼主是想将全文设置为一致的样式，我的代码作用是清除格式，全文变成宋体五号，英文是 Times New Roman 格式，也是正文样式，原来如果有红色等颜色的话，现在会变成自动色，所有文字格式完全一致。

gomeei · 发表于 2019-9-8 09:15

ActiveDocument.Content.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText

yuanfuyong · 发表于 2019-10-12 17:56

gomeei 发表于 2019-9-8 09:15
ActiveDocument.Content.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText

感谢

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

[求助] 如何通过VBA使word全文变成正文格式呢