如何在excel的vba中进行繁简转换

Posted 2023-03-15

在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 参考技术A 在工具栏有个繁简转换的按钮，选中后你要转换的文本点那个按钮就行。如果没有，在工具栏里最右边有个向下的三角形，你点一下，到里面找出来就行。 参考技术B 用紫光输入法，可以随便设置繁简体