[已解决]VBA命令在WORD中为什么一次不能删除所有的空白回车行

yjwdjfqb

VBA命令在WORD中为什么一次不能删除所有的空白回车行

请老师们帮帮我看下，附件中的，删除空白行的宏代码为什么不能一次性删除所有的空白回车行。

word中VBA命令，关于删除空白回车行的问题.rar (4.49 KB, 下载次数: 14)

2012-10-23 15:45 上传

点击文件名下载附件

请老师们帮帮忙修改下，让附件中的代码能一次性删除所有的空白回车行，谢谢大家了**！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-23 15:59

1. 
   
2. Sub 宏1()
   
3.     Selection.WholeStory
   
4.     Selection.Find.ClearFormatting
   
5.     Selection.Find.Replacement.ClearFormatting
   
6.     With Selection.Find
   
7.         .Text = "(^13){1,}"
   
8.         .Replacement.Text = "^13"
   
9. 
   
10.         .MatchWildcards = True
    
11.     End With
    
12.     Selection.Find.Execute Replace:=wdReplaceAll
    
13. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. 
   
2. Sub 宏1()
   
3.     Selection.WholeStory
   
4.     Selection.Find.ClearFormatting
   
5.     Selection.Find.Replacement.ClearFormatting
   
6.     With Selection.Find
   
7.         .Text = "(^13){1,}"
   
8.         .Replacement.Text = "^13"
   
9. 
   
10.         .MatchWildcards = True
    
11.     End With
    
12.     Selection.Find.Execute Replace:=wdReplaceAll
    
13. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2012-10-23 15:59

非常感谢，朋友，又帮我解决了这个问题，太感谢了！！！

hwc2ycy

我帮你解决一个问题，我就学到了。
欢迎你多提问题。

yjwdjfqb

hwc2ycy 发表于 2012-10-23 16:16
我帮你解决一个问题，我就学到了。
欢迎你多提问题。

的确也是，本论坛上，还很少word方面的VBA相关知识，

朋友的知识面很广啊！！！