如何比较高效地进行全半角转换？

pbdq

主要是要把“０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ” 这样的全角转为半角。

网上找的程序是

1.     WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
   
2.    
   
3.     Dim qjsz, bjsz As String, i As Integer '定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型
   
4. 
   
5.     qjsz = "０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
   
6. 
   
7.     bjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
8. 
   
9.     For i = 1 To 62 '循环62次
   
10. 
    
11.         With Selection.Find
    
12.    
    
13.             .Text = Mid(qjsz, i, 1) 'mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字
    
14.    
    
15.             .Replacement.Text = Mid(bjsz, i, 1) '将用于替换的相应位置的半角数字
    
16.    
    
17.             .Format = False '保留替换前的字符格式
    
18.    
    
19.             .Execute Replace:=wdReplaceAll '用半角数字替换全角数字
    
20.    
    
21.         End With
    
22. 
    
23.     Next i
    

复制代码

实际使用上， 尤其是文档比较多的情况，发现效率不是很高。

请问诸位大侠，有没有比较高效的方法。

duquancai

1. Sub 全转半()
   
2.     ActiveDocument.Content.CharacterWidth = wdWidthHalfWidth
   
3. End Sub
   
4. Sub 半转全()
   
5.     ActiveDocument.Content.CharacterWidth = wdWidthFullWidth
   
6. End Sub

复制代码

pbdq

duquancai 发表于 2016-10-8 20:25

这个很有可能把 其他符号，比如 句号 等都转换一遍啊..........

duquancai

pbdq 发表于 2016-10-8 22:32
这个很有可能把 其他符号，比如 句号 等都转换一遍啊..........

用正则表达式吧！

duquancai

pbdq 发表于 2016-10-8 22:32
这个很有可能把 其他符号，比如 句号 等都转换一遍啊..........

给你一个非常优秀的代码》》》》》》》》》》

1. Sub 全转半()
   
2.     Dim i As Paragraph, mt, oRang As Range, n%, m%
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "[\uff10-\uff19\uff21-\uff3a\uff41-\uff5a]+"
   
5.         .Global = 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.                 Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
   
10.                 oRang.CharacterWidth = wdWidthHalfWidth
    
11.             Next
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

pbdq

duquancai 发表于 2016-10-8 23:06
给你一个非常优秀的代码》》》》》》》》》》

的确效率高多了，谢谢！！

duquancai

pbdq 发表于 2016-10-9 07:56
的确效率高多了，谢谢！！

如果文档无表格，是纯文本，再改一下，效率应该还可以提升。如果有表格那就这样吧！

pbdq

duquancai 发表于 2016-10-9 12:27
如果文档无表格，是纯文本，再改一下，效率应该还可以提升。如果有表格那就这样吧！

怎么修改比较好？  给点建议。

duquancai

pbdq 发表于 2016-10-9 16:47
怎么修改比较好？  给点建议。

够快了了！！！不改了。