[已解决]word文档如何快速删除原文最后段落的标点符号，并加新的标点符号

zxc98898

word文档如何快速删除原文最后段落的标点符号，并加新的标点符号.rar (3.18 KB, 下载次数: 13)

2014-11-22 09:52 上传

点击文件名下载附件 由于书写不规范，在最后的段落有的是，号，有的。号，现想把最后的不规范的符号都删除掉，重新加上。号。多谢老师指教。

最佳答案

月排行榜 / 总排行榜

zyouong

2014-11-22 13:36

跳转到最佳答案楼层

wp8680

1. Sub 修正段尾标点()
   
2.     Dim x%
   
3.     Dim star%, en%
   
4.     On Error Resume Next
   
5.     Do While x < ActiveDocument.Paragraphs.Count
   
6.         x = x + 1
   
7.         star = ActiveDocument.Paragraphs(x).Range.End
   
8.         If ActiveDocument.Range(Start:=star - 2, End:=star - 1) = "，" Then
   
9.         ActiveDocument.Range(Start:=star - 2, End:=star - 1).Text = "。"
   
10.         End If
    
11.     Loop
    
12. End Sub

复制代码

会用不？不会用请点击下面签名栏。

zyouong

zxc98898

zyouong 发表于 2014-11-22 13:36

老师：方法很好。不过看不清你在查找与替换中各输入什么的？能文字说明下吗？多谢。

zxc98898

zyouong 发表于 2014-11-22 13:36

看清了，真的好神奇哦。多谢了。

wp8680

这么高端的解决办法，没有最佳？

zxc98898

wp8680 发表于 2014-11-22 14:46
这么高端的解决办法，没有最佳？

多谢老师了。

开心妙妙

wp8680 发表于 2014-11-22 14:46
这么高端的解决办法，没有最佳？

你的高端，我想人家肯定看不懂你写的是什么
人家是想知道怎样去解决这个问题，所以你高端，肯定不是最佳了