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

413191246se

139：我这儿感觉正常！
你把我下面的代码复制到原位置，替换一下你的代码：（另外，在宏里双击可以选定整个宏代码，复制到文本文件保存起来）
    doc.Content.Find.Execute findtext:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="(", ReplaceWith:="（", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:=")", ReplaceWith:="）", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“.", ReplaceWith:=".“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“，", ReplaceWith:="，“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“。", ReplaceWith:="。“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“、", ReplaceWith:="、“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“：", ReplaceWith:="：“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“？", ReplaceWith:="？“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“！", ReplaceWith:="！“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="“；", ReplaceWith:="；“", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="。”", ReplaceWith:="”。", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="，”", ReplaceWith:="”，", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="。”", ReplaceWith:="”。", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="、”", ReplaceWith:="”、", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="：”", ReplaceWith:="”：", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="？”", ReplaceWith:="”？", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="！”", ReplaceWith:="”！", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:=".”", ReplaceWith:="”.", Replace:=wdReplaceAll
    doc.Content.Find.Execute findtext:="；”", ReplaceWith:="”；", Replace:=wdReplaceAll

413191246se

139：上面的代码，中文双引号又变了，你自己在代码中逐一调整吧，在两个英文双引号中间放入中文双引号。

13907933959

413191246se 发表于 2015-10-10 11:10
139：上面的代码，中文双引号又变了，你自己在代码中逐一调整吧，在两个英文双引号中间放入中文双引号。

师傅好！

把你的代码复制粘贴到VBA代码窗口，代码1～8句不但不会变成红色，也不用把1～8句代码前边的第二个英文前引号换成中文前引号，且运行正常、替换的效果也正常。师傅说：“你那儿也感觉正常”。这就奇了怪，后来我发现师傅的代码字体是Tahoma（而我的是宋体，这个我在其它的代码上也用过，也能正常替换），且每行代码后面是手动换行符（而我的是段落标记），徒弟胡乱猜测会不会跟这个有关？还求师傅指教，谢谢！

师傅、为什么把你的代码复制粘贴到了文档内（未做任何编辑修改）再从文档上复制粘贴到代码窗口内，代码1～8句还是会变成红色（每句后面还无故多了一个英文引号，还删不掉、在把第二句后面的英文引号删除后，第一句的后面又自动加上了英文引号），把1～8句代码前边的第二个英文前引号换成中文前引号，结果可正常运行，但替换的效果还是和原来一样。

另外、我在代码窗口内双击也不能复制整个宏代码。

13907933959

413191246se 发表于 2015-10-10 11:10
139：上面的代码，中文双引号又变了，你自己在代码中逐一调整吧，在两个英文双引号中间放入中文双引号。

回重复了，删了。

413191246se

139：建议你一句一句地手动调整，然后，在此宏范围内双击，可以复制保存到文本文档中；如果想保存所有代码，在 NewMacros 上点击右键，选择导出(NewMacros.bas)即可；以后可以导入替换现在的所有代码。

13907933959

413191246se 发表于 2015-10-12 08:58
139：建议你一句一句地手动调整，然后，在此宏范围内双击，可以复制保存到文本文档中；如果想保存所有代码 ...

师傅好！
我是把你的代码复制粘贴到了文档内（未做任何编辑修改）再从文档上复制粘贴到代码窗口内，后加的前8句替换标点符号的代码还是会变成红色，然后，我再一句一句地手动把这些代码前边的第二个英文前引号换成中文前引号，（可每句的末尾会无故多出一个英文引号，还删不掉、在把第二句后面的英文引号删除后，第一句的后面又自动加上了英文引号）但宏可正常运行，但替换的效果还是和原来一样，会出错。
师傅、你给我的代码具体是用什么方法弄好的？

413191246se

其实我也是一句一句地调整的，你也一句一句地调整吧，保存方法见楼上。

13907933959

413191246se 发表于 2015-10-12 21:23
其实我也是一句一句地调整的，你也一句一句地调整吧，保存方法见楼上。

师傅好！
意思是这种代码，不能用复制粘贴到文档内（不做任何编辑和修改）的保存方法，如再从文档上复制粘贴到代码窗口内，代码就会变形，只有用25楼的方法保存，才能让它不走样，是吧！师傅！

413191246se

是的，中英文双引号，在代码里要分清，手动调整，一一确认，保存时要复制后直接粘贴到文本文档中即可。

13907933959

413191246se 发表于 2015-10-13 10:57
是的，中英文双引号，在代码里要分清，手动调整，一一确认，保存时要复制后直接粘贴到文本文档中即可。

感谢师傅的一路扶行！谢谢！