VBA中英文互译

Function TranslationContent(Wat As String) As String
    On Error Resume Next
    Dim Http        As Object
    Dim MyScript    As Object, R As Object
    Dim Reg         As Object

    Set Reg = CreateObject("Scripting.Regexp")
    Set Http = CreateObject("Microsoft.XMLHTTP")
    Set MyScript = CreateObject("MSScriptControl.ScriptControl")
    
    Reg.Pattern = "[\u4e00-\u9fa5]"
    
    Http.Open "POST", "https://www.translate.com/translator/ajax_translate", False
    Http.setRequestHeader "Content-Type", " application/x-www-form-urlencoded; charset=UTF-8"
    
    Wat = WorksheetFunction.Asc(Wat)
    Wat = WorksheetFunction.Trim(Wat)
    
    If Reg.Test(Wat) Then
        Http.send "text_to_translate=" & Wat & "&source_lang=" & "zh" & "&translated_lang=" & "en" & "&use_cache_only=false"
    Else
        Http.send "text_to_translate=" & Wat & "&source_lang=" & "en" & "&translated_lang=" & "zh" & "&use_cache_only=false"
    End If

    MyScript.Language = "JScript"

    Set R = MyScript.Eval("(" + Http.responseText + ")")
    
    TranslationContent = R.translated_text
    
    On Error GoTo 0
    Set Http = Nothing
    
End Function