求一个查找文档内多余的标点符号并把它们改为蓝色的宏代码

13907933959 · 发表于 2015-10-2 08:44

本帖最后由 13907933959 于 2015-10-2 14:46 编辑

在整理医书资料中，经常碰到文档内有很多多余的标点符号，又没有规律可寻，所以求前辈们编写一个查找文档内多余的标点符号并把它们改为蓝色的宏代码。共有8种常用的标点符号。

1、查找任意2～3个相同的标点符号。
如：（，，。。、、：：. .？？！！；；）（，，，。。。、、、：：：. . .？？？！！！；；；）
2、查找任意2～3个不相同的标点符号。
如：（，。、。。：……等）（，。、。。，、。，……等）。这个可能要涉及到数字排列组合。
注：……等，这个省略号不包括。

小弟谢谢前辈们！

duquancai · 发表于 2015-10-2 12:06

不提供附件，怎么测试？另外个人认为你问题没有描述清楚。

13907933959 · 发表于 2015-10-2 14:54

duquancai 发表于 2015-10-2 12:06
不提供附件，怎么测试？另外个人认为你问题没有描述清楚。

前辈好，附件以上传。请查看。求一个查找文档内多余的标点符号（2个及2个以上的）并把它们改为蓝色的宏代码。请赐教！谢谢！

duquancai · 发表于 2015-10-2 17:21

13907933959 发表于 2015-10-2 14:54
前辈好，附件以上传。请查看。求一个查找文档内多余的标点符号（2个及2个以上的）并把它们改为蓝色的宏代 ...

勾选使用通配符查找[。，、；：？！.]{2,}替换“蓝色”

13907933959 · 发表于 2015-10-3 08:11

本帖最后由 13907933959 于 2015-10-3 10:25 编辑

duquancai 发表于 2015-10-2 17:21
勾选使用通配符查找[。，、；：？！.]{2,}替换“蓝色”

感谢前辈出手相助，这个查找替换的方法很好，简单实用，可只能一次查找单个文件，如要一次性查找改变几百个文件中多余的标点符号的颜色，又要怎样才能办到？请前辈再赐教！谢谢！

xpm130 · 发表于 2015-10-3 15:56

一次性查找改变几百个文件中多余的标点符号的颜色，又要怎样才能办到？

饭要一碗一碗吃嘛，干嘛在分分钟内做完半年的事啊呀？

13907933959 · 发表于 2015-10-3 17:54

本帖最后由 13907933959 于 2015-10-4 07:26 编辑

xpm130 发表于 2015-10-3 15:56
饭要一碗一碗吃嘛，干嘛在分分钟内做完半年的事啊呀？

前辈好！
因要整理的东西太多，不得不求前辈们赐教捷径，再说也确有前辈有此功力，如：413191246se 前辈，以前曾多次都得到他的鼎力相助，使原本手工要几年时间完成的东西，他编写的宏代码就可在几个小时内完成。

413191246se · 发表于 2015-10-4 14:05

本帖最后由 413191246se 于 2015-10-4 14:13 编辑

139：你好！——2号就看到你的帖子了，但未能出手，因为无计可施，今天我决定还是来老办法（逐字符循环法），毕竟宏比查找替换用起来方便，另外，宏你也可以自己自定义一些标点符号（但要保留原代码）。
****单个文档中，查找重复的标点符号（宏代码）******

Sub 查找重复标点符号()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
i.Range.Select
If Len(i.Range) = 1 Then GoTo SkipEmpty
Selection.HomeKey unit:=wdLine
Do
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Characters.Last Like vbCr Then GoTo SkipEmpty
If Selection.Characters.Last Like "[。；：，、！？;:,.?!…—]" Then
Do
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop Until Selection.Characters.Last Like "[!。；：，、！？;:,.?!…—]"
Selection.MoveEnd unit:=wdCharacter, Count:=-1
If Len(Selection) > 1 Then Selection.Font.Color = wdColorBlue '蓝色
If Len(Selection) > 1 Then Selection.Range.HighlightColorIndex = wdBrightGreen '突出显示（鲜绿）
End If
Selection.MoveRight unit:=wdCharacter, Count:=1
Loop
SkipEmpty:
Next
End Sub

复制代码

* 虽然循环处理文件夹内所有文件可以办到，但这个宏，我建议还是先处理单个文档为好！（因为有些标点符号不确定）
* 注意：第10行代码中，like 后面双引号中间用双中括号括着的为要查找的重复的标点符号，双引号括着代码只取其中之一。
* 第13行代码，与第10行代码标点符号是一致的，但是中括号后面有个英文叹号“!”代表“否”，表示如果不是它后面的标点的话，会怎么着。
* 第16行代码，突出显示，可以屏蔽（注释掉），也可以保留，因为取消所有突出显示很简单，只须：编辑菜单——全选——突出显示：无。
* 发现省略号和破折号无法鉴别，也当成不标准符号来看了！

413191246se · 发表于 2015-10-4 14:28

本帖最后由 413191246se 于 2015-10-4 14:32 编辑

139：请看第10行代码 like "。"then这种情况只匹配一个字符句号“。”
like "[。，]"这种情况，可以匹配句号，也可以匹配逗号，也就是说，在双引号中，用中括号括起来的符号，无论有多少个，匹配时，只取其中之一，但到底是哪个，不好说，可以是句号，也可以是逗号。
like"[。，：]"这种情况，匹配时会在句号/逗号/冒号三个标点之中取一个，到底哪个不好说。
like"[。，：、；]"这种情况还是只取这几种标点之一，包括中英文标点，自己可以试验添加。******
第13行代码：like"[!。]"then这种代码意思是：如果不是句号，则……。（中括号里面第一个英文叹号，代表否定的意思）
再比如：like"[!。，：]"then这种代码意思是：如果不是句号/逗号/冒号之一，则……。
******
但在楼上代码中，第13行代码中包括的标点符号要和第10行代码是一致的，只不过意思是取反。

13907933959 · 发表于 2015-10-4 17:48

413191246se 发表于 2015-10-4 14:28
139：请看第10行代码 like "。"then这种情况只匹配一个字符句号“。”
like "[。，]"这种情况，可以匹配句 ...

师傅好！
国庆节都没有让好好你休息！抱歉！
师傅为我编写的宏，刚刚用了，好用！我拿掉了“突出显示”这一行，师傅的用意我明白，是为了让它更醒目，但因要处理的资料太多，能少一个环节就少一个。

请师傅编写这个宏的目的，是查出多余的标点符号进行颜色标识后，我再用“查找替换”查找，然后一个个手工修改，这个没有办法，就象师傅你说的，在多余的标点符号中，那个才是对的都不确定，只能通也判别句子来确定。

因要处理的单个文件都很长，且文件有几百个之多，所以、我还是想劳请师傅编写一个“循环处理文件夹内所有文件”的宏，以便徒弟尽早完成。谢谢师傅！

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

[求助] 求一个查找文档内多余的标点符号并把它们改为蓝色的宏代码