word法简转繁，繁转简

lolmuta

做个笔记XD
其实在word下，是可以叫出简转繁，繁转简的功能，只要在工具=>自订=>进入分页[指令]=>类别中选[工具]=>[指令]中选最后一个中文繁简转换=>将之拖曳至你顺手的位置，即可。
你不需要设定，代码也是可以跑的
因为我是用繁体版，这个大约是繁体版可以简转繁的唯一方法了，如果还有别的方法，恳请赐教!
但是效率肯定不高，因为还要开一个word...怎么可能快呢?
test是测试
Translate 是主要代码区 InputRg As Range, OutputRg As Range, ToType As TranType
    参数inputrg 是range,为简字的输入区
    参数outputrg是range,为输出繁体
    参数ToType  若是Traditional，则会转成繁体，若是Simplified，则会转成简体
需引用 Microsoft Word xx.x Object Library

1. 
   
2. Public Enum TranType
   
3.     Traditional
   
4.     Simplified
   
5. End Enum
   
6. Sub test()
   
7.     Translate [a1], [a2], Simplified
   
8. End Sub
   
9. Public Sub Translate(InputRg As Range, OutputRg As Range, ToType As TranType)
   
10.     Dim Wordapp As New Word.Application
    
11.     Dim Wd As Document
    
12.     Set Wd = Wordapp.Documents.Add()
    
13.     Wd.Range.Text = InputRg
    
14.     If ToType = Traditional Then
    
15.         Wordapp.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
    
16.     ElseIf ToType = Simplified Then
    
17.         Wordapp.WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
    
18.     Else
    
19.    
    
20.     End If
    
21.     OutputRg = Wd.Range.Text
    
22.     Wd.Close False
    
23.     Set Wordapp = Nothing
    
24.     Set Wd = Nothing
    
25. End Sub
    

复制代码

VBA万岁

测试通过，多谢！
看看有没有高人弄出繁转简的。

yf_home

VBA万岁 发表于 2014-11-10 17:37
测试通过，多谢！
看看有没有高人弄出繁转简的。

其实一楼已经有说明，简繁体可以互转的。

Sub 繁体转简体()
    Translate [a3], [a4], Simplified
End Sub


Sub 简体转繁体()
    Translate [a1], [a2], Traditional
End Sub

yf_home

测试了一下，速度不是很快。

另外，建议应该直接在原单元格位置转换，才具备通用性。

VBA万岁

yf_home 发表于 2014-11-10 18:55
其实一楼已经有说明，简繁体可以互转的。

Sub 繁体转简体()

多谢指点！
不过，刚才在中文版的电脑上测试，“简转繁”，“繁转简”都不成功。
之前在英文版的电脑上测试“简转繁”是通过的。

yf_home

VBA万岁 发表于 2014-11-10 19:21
多谢指点！
不过，刚才在中文版的电脑上测试，“简转繁”，“繁转简”都不成功。
之前在英文版的电脑上 ...

我测试的都成功，就是速度有点慢。

简体XP，OFFICE2010

lolmuta

yf_home 发表于 2014-11-11 08:14
我测试的都成功，就是速度有点慢。

简体XP，OFFICE2010

因为我是繁体版的。
而目前只有这个方法，才能达成简转繁的功能

VBA万岁

yf_home 发表于 2014-11-11 08:14
我测试的都成功，就是速度有点慢。

简体XP，OFFICE2010

我这里用楼主现在的代码在英文版的电脑（Win7，OFFICE2010
）上测试，“简转繁”，“繁转简”都成功。

yf_home

lolmuta 发表于 2014-11-11 08:31
因为我是繁体版的。
而目前只有这个方法，才能达成简转繁的功能

论坛上，有一个简繁转换的加载宏，在简体下能用，在繁体版下是不能用，我之前也试过。

同感！

.

VBA万岁

yf_home 发表于 2014-11-11 08:14
我测试的都成功，就是速度有点慢。

简体XP，OFFICE2010

我这里用楼主现在的代码在中文版的电脑（Win7，OFFICE2010
）上测试，“简转繁”，“繁转简”也都成功。

多谢楼主及yf_home大侠！