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

413191246se

既然此帖重新挖出来，作为楼主，我重新说明一下：
* 英文弯双引号替换为中文弯双引号，已经完美解决！
* 英文直双引号替换为中文弯双引号，算是解决了，但如果双引号不配对，可能结果不正确！
具体代码请参见我的《Word2003通用模板宏（2018元旦版）》。

dongdonggege

楼主的22楼《英文标点转中文》程序，在第8行《Do While Selection.Find.Execute(findtext:=a(i), Forward:=True)》，在没有for i=……next情况下，a(i)是会出错的。

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.         For i = 0 To UBound(a) - 1
   
9.             Do While Selection.Find.Execute(findtext:=a(i), Forward:=True)
   
10.                 Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
11.                 If Selection.Characters.First Like "[!0-9a-zA-Z０-９ａ-ｚＡ-Ｚ]" Then Selection.Characters.Last.Text = b(i)
    
12.                 Selection.MoveRight Unit:=wdCharacter, Count:=1
    
13.             Loop
    
14.         Next
    
15.         i = i + 1
    
16.     Loop Until i = 2
    
17. End Sub

复制代码

是这样的吗？

yhs185

可以文档，先做个备份。然后运行哪里有错，改正过来再运行。己更正的错误。又更正了引号。

shenjianrong163

413191246se 发表于 2015-11-10 20:38
双引号共有三种形态：
1、中文弯双引号。如：祖国“花朵”鲜艳（中文全角宋体——正常）。
2、英文弯双引 ...

英文弯双引号怎样转为英文直双引号？
英文弯双引号怎样转为英文直双引号.zip (13.03 KB, 下载次数: 16)

2021-7-23 11:08 上传

点击文件名下载附件

413191246se

* 请 沈老师 斧正：

1. Sub aaaa_Double_Quotation_Marks()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = Chr(-24144)
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 .Font.Color = wdColorRed
   
10.                 .Text = Chr(34)
    
11.                 .Start = .End
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. '''
    
16.     With ActiveDocument.Content.Find
    
17.         .ClearFormatting
    
18.         .Text = Chr(-24143)
    
19.         .Forward = True
    
20.         .MatchWildcards = True
    
21.         Do While .Execute
    
22.             With .Parent
    
23.                 .Font.Color = wdColorRed
    
24.                 .Text = Chr(34)
    
25.                 .Start = .End
    
26.             End With
    
27.         Loop
    
28.     End With
    
29. End Sub

复制代码

shenjianrong163

413191246se 发表于 2021-7-24 12:04
* 请 沈老师 斧正：

这个好像连中文的双引号也替换了？

413191246se

是呀！——其实，英文双引号和中文双引号，我认为是同一种，只不过字体不同罢了。设置为新罗马字体，就是英文双引号；设置为宋体，就是中文双引号。用 ASC 函数观察，都是 -24144、-24143，我觉得无法区分，你有办法区分吗？

shenjianrong163

413191246se 发表于 2021-7-25 08:08
是呀！——其实，英文双引号和中文双引号，我认为是同一种，只不过字体不同罢了。设置为新罗马字体，就是英 ...

在电脑中的编码一样，看来是没法区分了。

小盆友靠自己

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

这位大神，这个是将当前活动文档中的英文双引号都转化为中文双引号，如果只转化当前段落的，如何进行修改呢？

batmanbbs

limshanb 发表于 2014-11-26 10:10
一楼的代码能够很好地替换到宋体的引号，但是有一个缺点，当文档中存在着引号不配对的错误时，这个代码就 ...

非常同意，所以智能识别成对的双引号才是一个难题