本文链接:http://oicu.cc.blog.163.com/blog/static/12303947120112293525730/
发信人: oicu (Oh! I see you!), 信区: OfficeSoft
标 题: Re: 请问如何在excel的vba中进行繁简转换
发信站: 水木社区 (Wed Mar 2 14:22:40 2011), 站内
Alt+F11
如果用2010(2013类似):
工具-引用-浏览-{Office2010SetupPath}\Office14\ADDINS\TCSCCONV.DLL
勾选TCSCConv 14.0 Type Library
然后
Sub Test()
Dim MyClass As New TCSCAddInLib.TCSCAddIn
Call MyClass.DoSC2TC
End Sub
其他转换方法请看对象浏览器啦。
如果用2007:
工具-引用-浏览-{Office2007SetupPath}\Office12\ADDINS\TCSCCONV.DLL
勾选Office Application TC-SC Translation Add-in
Sub Test()
Dim id As IRibbonControl
Dim MyClass As New TCSCConv.ExcelAddinDesigner12
Call MyClass.SC2TC_OnAction(id)
End Sub
Selection.Range.TCSCConverter _
wdTCSCConverterDirectionSCTC, True, True
【 在 shinseal (MD5最强的ID) 的大作中提到: 】
在word里我采用
WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
但是excel没有这个方法,请问在excel里面我应该怎么做?
评论