WEB开发网
开发学院软件教学办公软件Excel Excel简体繁体转换的VBA代码 阅读

Excel简体繁体转换的VBA代码

 2012-06-03 09:03:25 来源:开发学院   
核心提示:在Excel中,没有简体和繁体文字之间的转换功能,Excel简体繁体转换的VBA代码,但是Word却有此功能,因此,我们可以在Excel中通过VBA代码调用Word的繁体和简体功能,实现在Excel中的简体繁体转换的功能

在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

Tags:Excel 繁体 转换

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接