繁簡字體轉換 ( 透過 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