瀏覽量:50次
在Excel中,沒有簡體和繁體文字之間的轉(zhuǎn)換功能。
但是Word卻有此功能,因此,我們可以在Excel中通過VBA代碼調(diào)用Word的繁體和簡體功能,實現(xiàn)在Excel中的簡體繁體轉(zhuǎn)換的功能。
下面就是與此相關(guān)的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 '繁體轉(zhuǎn)簡體
Sheet1.Cells(1, 1) = .Sections(1).Range.Text .Close False'簡體轉(zhuǎn)繁體
End With wd.Quit
Set wd = Nothing End Sub
[聲明]本網(wǎng)轉(zhuǎn)載網(wǎng)絡(luò)媒體稿件是為了傳播更多的信息,此類稿件不代表本網(wǎng)觀點,本網(wǎng)不承擔(dān)此類稿件侵權(quán)行為的連帶責(zé)任。故此,如果您發(fā)現(xiàn)本網(wǎng)站的內(nèi)容侵犯了您的版權(quán),請您的相關(guān)內(nèi)容發(fā)至此郵箱【779898168@qq.com】,我們在確認(rèn)后,會立即刪除,保證您的版權(quán)。
官網(wǎng)優(yōu)化
整站優(yōu)化
渠道代理
400-655-5776