修改全角字母、数字为半角，保留标点符号为全角

zorsite

不知道是否有更好的方法，如果不想替换．的话，把此字符删除。

1. Sub 数字全角转半角()
   
2. '使用前最好先选择需要替换的内容。
   
3. Application.ScreenUpdating = False
   
4. Dim quan, ban As String, I As Integer
   
5. quan = "０１２３４５６７８９．％ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
   
6. ban = "0123456789.%ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
7.     For I = 1 To Len(quan)
   
8.         With Selection.Find
   
9.             .Text = Mid(quan, I, 1) 'mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字
   
10.             .Replacement.Text = Mid(ban, I, 1) '将用于替换的相应位置的半角数字
    
11.             .Format = False '保留替换前的字符格式
    
12.             .Execute Replace:=wdReplaceAll '用半角数字替换全角数字
    
13.         End With
    
14.     Next I
    
15. Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

legolasorlando

谢谢分享，学习了

Howard7738

谢谢分享。我测试后发现原全角小写英文字母被转换成半角大写英文字母，如何解决？
.Format = False '保留替换前的字符格式
好像没有发挥作用，是吗？

413191246se

网上所得代码：（不知编写者为谁）
Sub 替换全角数字字母为半角()
    Dim myRange As Range
    Set myRange = ActiveDocument.Content
    myRange.Find.ClearFormatting
    Do While myRange.Find.Execute(findtext:="[Ａ-Ｚａ-ｚ０-９]", Wrap:=wdFindStop, Format:=False, MatchWildcards:=True)
        myRange.CharacterWidth = wdWidthHalfWidth
        Set myRange = ActiveDocument.Range(myRange.End, ActiveDocument.Content.End)
    Loop
End Sub

oylw

怎么都是VBA!