六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Excel简体繁体转换的VBA代码

Admin | 2012-5-9 10:03:06 | ReadNums | 6676 | 标签 六合开奖结果现场直播 | 打印本页
     

  在Excel中,没有简体和繁体文字之间的转换功能。

  但是Word却有此功能,因此,我们可以在Excel中通过VBA代码调用Word的繁体和简体功能,实现在Excel中的简体繁体转换的功能。

  下面就是与此相关的VBA代码,希望对你有帮助。

  Sub JFZH()

  Dim wd As Word.Application

  Set wd = New Word.Application

  With wd.Documents.Add .Sections(1).Range.Text = Sheet1.Cells(1, 1).Text ' .Sections(1).Range.Select 'wd.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0

   wd.WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0  '繁体转简体

   Sheet1.Cells(1, 1) = .Sections(1).Range.Text .Close False '简体转繁体

   End With wd.Quit

  Set wd = Nothing End Sub


问题未解决:在线咨询

香港马经彩图

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日