英文双引号替换为中文双引号（全自动完美解决！）

13907933959

413191246se 发表于 2015-11-11 09:50
139：过奖！——你说的两宏合并，我认为不必合并。上面的新宏算解决了英文双引号的问题，你说的第一个宏， ...

师傅好！
我现在整理资料中急需一个含有下面这4个功能的宏：

1、将点号转换为句号，但不转换小数点；
2、查找文档中英文省略号，第一个或第四个点被替换成了中文句号，替换回英文省略号，但不转换小数点；
3、将小标题编号后面的标点改为顿号，但不转换小数点；
4、将文档中英文双引号替换成了中文双引号。

1～4个宏、都以有，前3个宏按您教的方法都组合在了一起可用，就是第4个组合不上去，少了一个功能，因此要反复的来几遍，一个是麻烦，再一个整理的资料太多，缺少的这一步也容易忘记，以后再想补上这一步就很难。师傅的新宏完美的解决了英文双引号的问题，如单用、因资料太多要多很多步骤，因此才想请师傅把它组合在一起。

师傅、您重新编辑的《英文标点转中文》宏，没看到。

413191246se

Sub aaa()
'********
End Sub
Sub bbb()
'********
End Sub
---------------139：你只须将前宏末行代码 End Sub 和后宏末行代码 Sub bbb() 删除或注释，即可将两个宏组合在一起，这没有什么技术含量。既然你说我的双引号宏已经OK，你自己组合即可。
你说 1/2/3 三个宏都已经有了？第2个宏英文省略号这个也已经有了？
---------------新宏：

1. Sub 英文标点转中文()
   
2.     Dim i As Long, a, b
   
3.     a = Array(".", ",")
   
4.     b = Array("。", "，")
   
5.     Do
   
6.         Selection.HomeKey Unit:=wdStory
   
7.         Selection.Find.ClearFormatting
   
8.         Do While Selection.Find.Execute(findtext:=a(i), Forward:=True)
   
9.             Selection.MoveStart Unit:=wdCharacter, Count:=-1
   
10.             If Selection.Characters.First Like "[!0-9a-zA-Z０-９ａ-ｚＡ-Ｚ]" Then Selection.Characters.Last.text = b(i)
    
11.             Selection.MoveRight Unit:=wdCharacter, Count:=1
    
12.         Loop
    
13.         i = i + 1
    
14.     Loop Until i = 2
    
15. End Sub

复制代码

13907933959

413191246se 发表于 2015-11-11 19:17
Sub aaa()
'********
End Sub

师傅好！

请看附件。

413191246se

139：是有问题！——添加了一个参数开关，把我的《英文双引号转中文》宏第3行代码（取消了使用通配符的勾选，即添加了 , MatchWildcards:=False），改为下面，应该没问题了：
    Do While Selection.Find.Execute(findtext:=Chr(34), Forward:=True, MatchWildcards:=False)

413191246se

下面是最新《英文双引号转中文》宏：

1. Sub 英文双引号转中文()
   
2.     Selection.HomeKey unit:=wdStory
   
3.     Selection.Find.ClearFormatting
   
4.     Do While Selection.Find.Execute(findtext:=Chr(34), Forward:=True, MatchWildcards:=False)
   
5.         Selection.Range.CharacterWidth = wdWidthFullWidth
   
6.         Selection.MoveRight unit:=wdCharacter, Count:=1
   
7.     Loop
   
8.     Selection.HomeKey unit:=wdStory
   
9.     Selection.Find.ClearFormatting
   
10.     Do While Selection.Find.Execute(findtext:=Chr(-23646), Forward:=True)
    
11.         Selection = ChrW(8220)
    
12.         Do
    
13.             If Selection.Characters.Last.text = vbCr Then GoTo Skip
    
14.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
15.         Loop Until Asc(Selection.Characters.Last) = -23646
    
16.         Selection.Characters.Last.text = ChrW(8221)
    
17. Skip:
    
18.         Selection.MoveRight unit:=wdCharacter, Count:=1
    
19.     Loop
    
20. End Sub

复制代码

13907933959

413191246se 发表于 2015-11-12 16:52
下面是最新《英文双引号转中文》宏：

师傅好！
现在OK了，感谢师傅！

师傅、您有不有“守柔Word文本筛——文档重复段落和相似段落分析工具”？如有请师傅上传一个给我。

413191246se

139，可网络搜索试试，另外，他不家《守柔编程代码集》，网络搜索。

13907933959

413191246se 发表于 2015-11-13 10:38
139，可网络搜索试试，另外，他不家《守柔编程代码集》，网络搜索。

师傅好！
我前一段时间也找过，网上搜索不到。

忧陌啊

感谢各位大神，学习了！

ammyc

好好学习天天向上