彰化一整天的論壇

 找回密碼
 立即註冊
查看: 182|回復: 0

【轉貼】Excel的vba中進行繁簡轉換

[複製鏈接]
發表於 2018-1-8 11:15:46 | 顯示全部樓層 |閱讀模式
本文链接: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


如果用2003,可以下载 Office 2003 简繁转换加载宏:
http://www.microsoft.com/downloa ... F-9557-BA11CC7A9B7A

Word里转换Range使用:
http://msdn.microsoft.com/en-us/library/bb221824(v=office.12).aspx
Selection.Range.TCSCConverter _
    wdTCSCConverterDirectionSCTC, True, True


回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-9-24 06:10 , Processed in 0.119560 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表