中文标点变成了英文标点。

miceqi

WORD2013，输入文档时，标点符号会跳到新罗马字体。这种情况可以避免吗？还是说需要事后再处理？怎么解决？
谢谢大神来指导！

ming0018

默认就是这样，你把输入法设置成全角就是中文字体，半角的数字英文及标点都是默认新罗马。

卡卡西大人

这个应该是输入法的问题，换个输入法试试

413191246se

此问题在2003中已经解决！（参见下面代码）不知在2013中如何？

1. Sub 全角转半角()
   
2.     Dim i As Paragraph, mt, r As Range, n%, m%
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "[Ａ-Ｚａ-ｚ０-９“”]"
   
5.         .Global = True: .IgnoreCase = False: .MultiLine = True
   
6.         For Each i In ActiveDocument.Paragraphs
   
7.             For Each mt In .Execute(i.Range.Text)
   
8.                 m = mt.FirstIndex: n = mt.Length
   
9.                 With ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
   
10.                     If .Text Like "[“”]" Then .CharacterWidth = wdWidthFullWidth Else .CharacterWidth = wdWidthHalfWidth
    
11.                 End With
    
12.             Next
    
13.         Next
    
14.     End With
    
15. End Sub

复制代码

为善最乐

查找中输入[^1-^12^14-^127]（查找到除段落标志的所有西文字符）
开始-段落-更改大小写-全角。可替换绝大多数。句号，书名号等再个别替换即可