[已解决]关于利用VBA删除word文档中空格的问题

yjwdjfqb

关于利用VBA删除word文档中空格的问题
Sub 删除空格()
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "　"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

上面这段代码是我，利用录制宏得到的，删除文档中的空格；
但，我只想删除，每个段首，与段末　的空格，请各位朋友老师们帮帮忙，帮写修改、或者重新写个代码。

可以用以下，附件来进行测试。

附件.rar (2.56 KB, 下载次数: 27)

2013-5-12 16:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-12 16:47

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

复制代码

跳转到最佳答案楼层

hwc2ycy

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

复制代码

yjwdjfqb

hwc2ycy 发表于 2013-5-12 16:47

谢谢老师，这个非常的好用。太感谢了。

yjwdjfqb

hwc2ycy 发表于 2013-5-12 16:47

老师你好，如果是删除
这个输入法状态下输入的空格，这个应该怎么改呀，请老师再帮我修改下，谢谢老师了！！！

hwc2ycy

yjwdjfqb 发表于 2013-5-19 12:10
老师你好，如果是删除
这个输入法状态下输入的空格，这个应该怎么改呀，请老师再帮我修改下，谢谢老师 ...

你说的是全角空格吧。

hwc2ycy

    .Text = "　{1,}^13　{1,}"
这里用的就是全角空格呀。

yjwdjfqb

hwc2ycy 发表于 2013-5-19 13:57
.Text = "　{1,}^13　{1,}"
这里用的就是全角空格呀。

老师你好，这个附件中就是用的
这个输入法状态下输入的空格，用上面的代码就不能删除空格。

附件如下：
附件2.rar (2.45 KB, 下载次数: 15)

2013-5-19 14:52 上传

点击文件名下载附件

有空格的地方，如图，红色部分：


再次麻烦下老师，帮帮忙！！！

hwc2ycy

yjwdjfqb 发表于 2013-5-19 14:53
老师你好，这个附件中就是用的
这个输入法状态下输入的空格，用上面的代码就不能删除空格。

执行前先备份文档测试

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

复制代码

yjwdjfqb

hwc2ycy 发表于 2013-5-19 15:17
执行前先备份文档测试

知道了，谢谢老师！！！