word里中文引号的不同显示形式原因及该如何相互转化？

ideapad

如上所示，为什么同样是引号，显示方式不同呢？

问题1：上面的1和2 显示的引号感觉没有下面 3 和 4显示的引号正常；

问题2：如何在word全文中，将上述1 和2 里的引号替换为下面3 和4 的引号？

PS，请打开附件查看，帖子里面显示的两种引号区别较大，但是在word中则没这么大区别，感谢你的关注与指教呢！

document1.rar (10.47 KB, 下载次数: 4)

2015-4-28 12:21 上传

点击文件名下载附件

shdh

1.2用的应该是英文状态下的引号，3.4用的是中文状态下的引号，替换就行了。

dafanshu1

shdh 发表于 2015-4-28 13:55
1.2用的应该是英文状态下的引号，3.4用的是中文状态下的引号，替换就行了。

替换时把引号格式都设为中文宋体，但替换后引号与逗号之间间隔却大了，不知为什么？如图：

ideapad

shdh 发表于 2015-4-28 13:55
1.2用的应该是英文状态下的引号，3.4用的是中文状态下的引号，替换就行了。

你好，还是不对头，我word里面，直接输入英文状态下的引号，和这个  1，  2 里面的引号也不一样呢

ideapad

dafanshu1 发表于 2015-4-28 14:38
替换时把引号格式都设为中文宋体，但替换后引号与逗号之间间隔却大了，不知为什么？如图：

你是按照 shdh 的方法，将英文的直接替换为中文吗？
在我这里，英文的引号不是这个样子的呢

dafanshu1

ideapad 发表于 2015-4-28 15:15
你是按照 shdh 的方法，将英文的直接替换为中文吗？
在我这里，英文的引号不是这个样子的呢

是啊。我发的图中引号已替换成中文格式的了。其实不用替换，直接选中后选择宋体格式就行。

ideapad

dafanshu1 发表于 2015-4-28 15:45
是啊。我发的图中引号已替换成中文格式的了。其实不用替换，直接选中后选择宋体格式就行。

晕，我发现就是字体的问题了哦，唉！因为我将全文选中改为 times new Roman 了，刚改为宋体就ok了

ideapad

shdh 发表于 2015-4-28 13:55
1.2用的应该是英文状态下的引号，3.4用的是中文状态下的引号，替换就行了。

你是指的在word里，直接替换，然后上面输入英文状态下的 "，下面输入中文状态下的 ” 就是吗？

但是word里是区分不开英文状态下的  ""  前后两个哦

Mr.Kim

建议替换操作在，txt文档中进行。中英文、格式变换没有太多毛病。

413191246se

弯双引号实际上是半角，可以正确替换为全角，即使不配对也没问题；但是英文双直引号如果不配对的话，就不好看了！代码如下：（去年旧成果，谁有更好代码请分享一下。）

1. Sub 替换半角双引号为全角()
   
2.     Dim doc As Document, i As Paragraph, mt, r As Range, n%, m%
   
3.     Set doc = ActiveDocument
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Pattern = "[“”()]"
   
6.         .Global = True: .IgnoreCase = False: .MultiLine = True
   
7.         For Each i In doc.Paragraphs
   
8.             For Each mt In .Execute(i.Range.Text)
   
9.                 m = mt.FirstIndex: n = mt.Length
   
10.                 Set r = doc.Range(i.Range.Start + m, i.Range.Start + m + n)
    
11.                 r.CharacterWidth = wdWidthFullWidth
    
12.             Next
    
13.         Next
    
14.     End With
    
15. End Sub
    
16. Sub 替换英文直双引号为中文()
    
17.     Dim i As Paragraph, j&, r As Range, s As Range, m&, n&
    
18.     For Each i In ActiveDocument.Paragraphs
    
19.         i.Range.Select
    
20.         If i.Range.Information(wdWithInTable) = True Then Selection.MoveEnd unit:=wdCharacter, Count:=-1
    
21.         If Selection.Type = wdSelectionIP Then GoTo npg
    
22.         Set r = Selection.Range
    
23.         Set s = Selection.Range
    
24.         With r
    
25.             .Find.ClearFormatting
    
26.             Do While .Find.Execute(findtext:=Chr(34))
    
27.                 If .CharacterWidth = wdWidthHalfWidth Then
    
28.                     j = j + 1
    
29.                     If j = 1 Then .Text = ChrW(8220): m = m + 1: .Font.Color = wdColorRed
    
30.                     If j = 2 Then .Text = ChrW(8221): n = n + 1: .Font.Color = wdColorRed
    
31.                     If j = 2 Then j = 0
    
32.                 End If
    
33.                 .SetRange Start:=.End, End:=s.End
    
34.             Loop
    
35.         End With
    
36. npg:
    
37.     Next
    
38.     If m + n > 0 Then MsgBox "共替换 " & m + n & " 处英文直双引号为中文！" & vbCr & "请检查<红色双引号>是否正确，然后<全选>设为<自动色>！", 0 + 16
    
39. End Sub

复制代码