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

limshanb

网上有许多将英文引号替换为中文引号的方法，我基本上都试验过了，例如用通配符，(")(*)(")替换为“\2”，这个方法和思路很好，当文中引号都配对时也有效，但是还要在自动格式中修改直引号和弯引号的选项，当文中出现引号不配对（丢掉一半）时也不行。能够容错的替换方法都比较麻烦（多次替换）。
最好的方案，还是用代码的思路，就像一楼给出的代码，只要再加以改善，就非常完美。本来我是想再发起一个帖子向高手求援，但是又怕求援太频繁了招人烦，所以没有发起新帖。

这个问题看起来很简单，很小，好像不值得去开发挖掘似得，其实不然，如果要完美的解决，还是很复杂的，我把准备发新帖拟定的案例顺便发送出来，您如有兴趣就顺便看看，有什么方法能够达到我提出的目标。附件举例的文字是在同一篇文章中出现的多种情况，代码最好能够同时实现替换，不是一个一个地解决。

413191246se

我再复制一遍这个宏，我觉得已经没有什么问题了，limshanb你觉得有什么问题呢？
Sub 替换英文双引号为中文()
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = """"
      .Forward = True
      .Wrap = wdFindStop
      .MatchByte = True
    End With
    With Selection
      While .Find.Execute
          .Text = ChrW(8220)
          .Find.Execute
          .Text = ChrW(8221)
      Wend
    End With
End Sub

limshanb

413191246se 发表于 2014-11-26 10:25
我再复制一遍这个宏，我觉得已经没有什么问题了，limshanb你觉得有什么问题呢？
Sub 替换英文双引号为中文 ...

这个代码的问题上面已经说明，就是对于文章中出现丢掉半个引号的情况时，就会错误地配对引号弯度方向，因为代码中这一句：  .Text = """"   针对的是配对的双引号，但是，在现实中往往会遇到丢失半个引号的错误，这时候该代码就会找到下一个引号自动配对，而下一个引号不是与丢失掉这个句子配对的，结果就是导致后面的引号弯度方向不对。
换句话说，该代码没有容错的功能。如果能够加上识别丢掉半个引号错误、再酌情处理的功能就完美了

13907933959

413191246se 发表于 2014-11-26 10:25
我再复制一遍这个宏，我觉得已经没有什么问题了，limshanb你觉得有什么问题呢？
Sub 替换英文双引号为中文 ...

师傅好！
您的这个Sub 替换英文双引号为中文() 的宏，运行不了，提示运行时错误5623
请师傅看一下。

413191246se

英文双引号（无论直的还是弯的），如果粗心作者马虎大意，前后双引号不成对，怎么办呢？

13907933959

413191246se 发表于 2015-11-9 01:09
英文双引号（无论直的还是弯的），如果粗心作者马虎大意，前后双引号不成对，怎么办呢？

师傅好！

那只有睁大眼睛，仔细查对，纠正错误。

413191246se

谢谢 139！——我 1 楼所示代码确实在我测试过程中OK，那是因为原文中双引号是配对的，不配对的我没遇到，故未能检测出错误。

413191246se

双引号共有三种形态：
1、中文弯双引号。如：祖国“花朵”鲜艳（中文全角宋体——正常）。
2、英文弯双引号。如：尽管“薯头先生”可爱（英文半角Times New Roman字体—错误）。
3、英文直双引号。如：祖国"花朵"鲜艳（英文半角Times New Roman字体——错误）。
*
解决思路（算法）：
三种情况，双引号的ASC值均为34；
前两种情况，前双引号ASC值为-24144，后双引号ASC值为-24143。
第2种情况，变为全角，即为正常宋体弯双引号。
第3种情况，变为全角后，是符号“＂”，ASC值为-23646。
*
解决办法：
查找ASC(34)，找到三种双引号，变为全角，第1种本来就是全角变不变仍为全角，第2种变为全角变正常，第3种变为符号“＂”，ASC值为-23646，查找ASC(-23646)，替换为chrw(8220)，变为正常中文前双引号，再查找变为chrw(8221)，变为正常中文后双引号，问题解决，这种解决办法，英文弯双引号的方向决不会错；直双引号不好说，如果成对也不会错，错也只是本段错（不考虑双引号是否成对，以一个段落为局限范围）。
***下面是我针对英文双引号转中文的最新代码，请各位朋友测试、指正：

1. Sub 英文双引号转中文()
   
2.     Selection.HomeKey Unit:=wdStory
   
3.     Selection.Find.ClearFormatting
   
4.     Do While Selection.Find.Execute(findtext:=Chr(34), Forward:=True)
   
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-10 20:38
双引号共有三种形态：
1、中文弯双引号。如：祖国“花朵”鲜艳（中文全角宋体——正常）。
2、英文弯双引 ...

师傅好！
您真是个仔细认真的人，什么事都研究得这么透，难怪技术这么好，真是令人佩服！

413191246se

139：过奖！——你说的两宏合并，我认为不必合并。上面的新宏算解决了英文双引号的问题，你说的第一个宏，就是把英文句点转为中文句号，我的宏照样办得到，你愿意用 升华 的也可以。另外，昨天下午我重新编辑了一下《英文标点转中文》，只包含了两个标点：句号、逗号，其它的待填。