Oscar Sun

                  
Public Enum TranType'http://club.excelhome.net/thread-1164625-1-1.html
    Traditional
    Simplified
End Enum
Sub test()
    Translate [a1], [a2], Simplified
End Sub
Public Sub Translate(InputRg As Range, OutputRg As Range, ToType As TranType)
    Dim Wordapp As New Word.Application
    Dim Wd As Document
    Set Wd = Wordapp.Documents.Add()
    Wd.Range.Text = InputRg
    If ToType = Traditional Then
        Wordapp.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
    ElseIf ToType = Simplified Then
        Wordapp.WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
    Else
    
    End If
    OutputRg = Wd.Range.Text
    Wd.Close False
    Set Wordapp = Nothing
    Set Wd = Nothing
End Sub