Или более сжатая вариация версия корректировки от
Дмитрия Щербакова,(поиграюсь с вариациями innerHTML/innerText). Дмитрию Щербакову - спасибо!
Код |
---|
Function GoogleTranslater(txt) As String
Dim IE As Object, dt$
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = False
IE.Navigate "http://translate.google.com/#auto/en/" & txt
Do While IE.Busy Or IE.ReadyState <> 4: DoEvents: Loop
dt = IE.Document.getElementById("result_box").innerHTML
dt = Replace$(Replace$(dt, "<Span>", "", , , 1), "</Span>", "", , , 1)
IE.Quit: Set IE = Nothing
GoogleTranslater = dt
End Function |
С "InnerTEXT" совсем вышло кратенько:
Код |
---|
Function GoogleTranslater(txt) As String
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = False
IE.Navigate "http://translate.google.com/#auto/en/" & txt
Do While IE.Busy Or IE.ReadyState <> 4: DoEvents: Loop
GoogleTranslater = IE.Document.getElementById("result_box").innerText
IE.Quit: Set IE = Nothing
End Function
|