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

413191246se

今日搜寻网络，偶遇一文，里面有VBA宏代码，在 Word 2003 中试之，OK！——遂英文双引号替换为中文双引号这个实际老大难问题得以完美解决！宏代码如下：

' 替换英文双引号为中文双引号（全自动完美解决）
    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

*************以下为我昨日之半自动解决办法：
' 替换英文弯双引号为中文双引号（半自动解决办法，对付一本小说也可以）（英文直双引号网上有介绍的方法，还算管用，这里未提供）
' 设置快捷键F11，按住不撒手，直到全文结束（但遇到英文直双引号会卡住，此时松开F11键，用右方向键向后移动一个字符继续按住F11键）
' 此3句代码如果放到Do...Loop循环中，如果没有英文直双引号的话，会自动全部替换完成，但最后陷入死循环，需按Ctrl+Break键结束进程
    Selection.Find.Text = """"
    Selection.Find.Execute
    Selection.Range.CharacterWidth = wdWidthFullWidth

谢谢 2楼指教，3Q！——你的方法我也要实践一下。

wudixin96

WORD全部替换就行，按F11，别按手酸了

413191246se

2楼请明示：怎么全部替换？说出具体操作步骤。我暂时无法全部替换。——这个问题是个很实际的问题，网上介绍的方法并不成功。附上实例： symbol.rar (2.67 KB, 下载次数: 26)

2011-9-24 11:53 上传

点击文件名下载附件

wudixin96

楼主的问题中，1中的双引号 是正确 ，只需要把字体改成宋体就可以了。
2中的确实为半角的双引号，只需要替换一下
查找：["]([!"]@)["]
替换：“\1”
勾上通配

wudixin96

替换字体方法

413191246se

    昨晚，我用 ASC（I）这种函数已经知道无法解决，后又用 半角/全角 来解决，但仍然未能完美解决，今日帖中有 ChrW 这样的代码，还不清楚它的用法。问题总算得到完美解决了！但说到完美，我发现，在把英文半角直双引号人为地变为全角后，这个宏也不能解决，似乎是99%地解决了这个问题，随后的问题还有英文逗号替换为中文逗号等……  2 楼的方法，我实践后未得到解决，但仍然谢谢你！3Q！

limshanb

wudixin96 发表于 2011-9-24 12:59
楼主的问题中，1中的双引号 是正确 ，只需要把字体改成宋体就可以了。
2中的确实为半角的双引号，只需要替 ...

学习了

limshanb

wudixin96 发表于 2011-9-24 13:08
替换字体方法

这样替换不起作用啊？
原来的New Roman字体的引号还是不变，没有变成宋体引号啊！

413191246se

楼上，请试试第1楼代码。如果未解决问题，请提供示例文档。

limshanb

413191246se 发表于 2014-11-25 19:12
楼上，请试试第1楼代码。如果未解决问题，请提供示例文档。

一楼的代码能够很好地替换到宋体的引号，但是有一个缺点，当文档中存在着引号不配对的错误时，这个代码就会从该位置开始往后，错误地显示弯引号的方向，如果文档中再出现一次引号不配对的错误，该代码会从该位置开始“错错为对”地再次正确显示。究其原因，是因为代码采用了奇偶数判断的方法导致的。
文档中出现引号不配对的情况当然是不对的，但是这个错误不能控制，无论是自己还是从网上拷贝的文章，经常会出现这个错误，因为谁都会粗心、马虎。
如果这个代码能够智能识别引号不配对（丢失半个引号），并能正确处理的话，应该是非常完美的。
很早以前我就从网上搜索到了这个代码，正是由于以上缺憾，所以应用的不多，因为我都是处理大型文档，一旦出错，再一个个改正过来更费劲，还不如不用。