繁簡字體轉換 ( 透過 Word 物件 )

繁簡字體轉換 ( 透過 Word 物件 )

如何透過 Word 做 繁 / 簡 字轉換

Private Sub cmd繁簡轉換_Click()

' 0 簡轉繁 , 1 繁轉簡

Dim strData As String

strData = T_S_Cvt("資料庫")

MsgBox strData

MsgBox T_S_Cvt(strData, 0)

End Sub

Public Function T_S_Cvt(strData, Optional bytOption As Byte = 1) As String

With CreateObject("Word.Document")

.Content = strData

.Range.TCSCConverter bytOption, True, True

T_S_Cvt = .Content

.Close False

End With

End Function