[已解决]VBA设置word文档中不显示段落标记

yjwdjfqb

VBA设置word文档中不显示段落标记

怎样用VBA命令，把word文件中选项中这一项设置为，不显示，也就是，去掉这个地方的勾，用VBA命令怎样实现。
请大家帮帮忙！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-23 16:30

1. ActiveDocument.ActiveWindow.View.ShowParagraphs = False

复制代码

1.     With ActiveWindow
   
2.         With .View
   
3.             .ShowParagraphs = False
   
4.         End With
   
5.     End With

复制代码

跳转到最佳答案楼层

hwc2ycy

直接录一个就成了嘛。

hwc2ycy

1. ActiveDocument.ActiveWindow.View.ShowParagraphs = False

复制代码

1.     With ActiveWindow
   
2.         With .View
   
3.             .ShowParagraphs = False
   
4.         End With
   
5.     End With

复制代码

hwc2ycy

把FALSE换成TRUE，就是显示段落标记了。

yjwdjfqb

hwc2ycy 发表于 2012-10-23 16:30

朋友你好，我在word文档中设置了你帮我写的代码来设置文档格式，其中我本来是设置段落首缩进2字符，

但执行代码后，最后没有实现段落首缩进2字符，

我把附件上传上来，请朋友帮我看看问题在那儿好吧，谢谢朋友了！！！

word中VBA问题.rar (17.2 KB, 下载次数: 13)

2012-10-23 20:05 上传

点击文件名下载附件

hwc2ycy

问题出在删除空回车那一段，奇怪。
格式看了也确实有，可无论怎么操作，也不能缩进。

yjwdjfqb

hwc2ycy 发表于 2012-10-23 21:31
问题出在删除空回车那一段，奇怪。
格式看了也确实有，可无论怎么操作，也不能缩进。

就是呀，找不出问题的原因。

在段落格式里面确实是缩进了2字符

hwc2ycy

1.     Selection.WholeStory  '删除空回车
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     With Selection.Find
   
5.         .Text = "(^13){2,}"
   
6.         .Replacement.Text = "^13^t"
   
7.         .MatchWildcards = True
   
8.     End With
   
9.     Selection.Find.Execute Replace:=wdReplaceAll

复制代码

找了个折中的办法。

yjwdjfqb

hwc2ycy 发表于 2012-10-23 21:50
找了个折中的办法。

word中VBA问题2.rar (16.83 KB, 下载次数: 9)

2012-10-23 22:08 上传

点击文件名下载附件


老师你好，现在又发现，有的段落首还是没有缩进二字符，有的段落首还是有空格，见附件：

多次得到老师你的帮助，非常的感谢！