I was trying to get Google Translate to translate field data.

The function i added as a module sure seems close.  Can anyone expand on it..?

If you put us it like:  The "en" from English to "es" Spanish.
TranslateText([Field Data to Translate],"en","es")

It is sending back the same text that I sent out.....

****************************

Details

Function TranslateText(strText As String, strFrom As String, strTo As String) As String
    
    Dim http As Object
    Dim url As String
    Dim result As String

    url = "https://translate.googleapis.com/translate_a/single?client=gtx&sl=" & _
           strFrom & "&tl=" & strTo & "&dt=t&q=" & Replace(strText, " ", "%20")

    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", url, False
    http.send

    result = http.responseText
    result = Split(result, Chr(34))(3)

    TranslateText = result
    
End Function
Copy

*****************************