VBA code for simplified traditional translation of Excel

In Excel, there is no conversion between simplified and traditional text.

But word has this feature, so we can call the traditional and simplified features of Word in Excel by using VBA code to realize the functionality of simplified traditional translation in Excel.

Here is the VBA code associated with this, and I hope it will help you.

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 ' traditional simplified

Sheet1.cells (1, 1) =. Sections (1). Range.Text. Close False ' simplified to traditional

End With WD. Quit

Set WD = Nothing End Sub