übersetzen
18.04.2019 14:24:40
Berny
ich möchte gerne ausgewählte Zellen automatisch übersetzen.
Nach meiner Recherche bin ich auf folgenden Code gestoßen. Leider kenne ich den Autor (Quelle) nicht.
Const langCode = ("auto,en,fr,es")
Public Enum LanguageCode
InputAuto = 0
InputEnglish = 1
InputFrench = 2
InputSpanish = 3
End Enum
Public Enum LanguageCode2
ReturnEnglish = 1
ReturnFrench = 2
ReturnSpanish = 3
End Enum
Sub Test()
Dim msg As String
msg = "Hello World!"
MsgBox AutoTranslate(msg, InputEnglish, ReturnSpanish)
End Sub
Public Function AutoTranslate(ByVal Text As String, Optional LanguageFrom As LanguageCode, _
Optional LanguageTo As LanguageCode2) As String
Dim langFrom As String, langTo As String, IE As InternetExplorer, URL As String, myArray
If IsMissing(LanguageFrom) Then
LanguageFrom = InputAuto
End If
If IsMissing(LanguageTo) Then
LanguageTo = ReturnEnglish
End If
myArray = Split(langCode, ",")
langFrom = myArray(LanguageFrom)
langTo = myArray(LanguageTo)
URL = "https://translate.google.com/#" & langFrom & "/" & langTo & "/" & Text
Set IE = New InternetExplorer
IE.Visible = False
IE.Navigate URL
Do Until IE.ReadyState = 4
DoEvents
Loop
Application.Wait (Now + TimeValue("0:00:5"))
Do Until IE.ReadyState = 4
DoEvents
Loop
AutoTranslate = IE.Document.getElementByID("result_box").innerText
IE.Quit
Set IE = Nothing
End Function
Der Code läuft soweit bis zu ...
» AutoTranslate = IE.Document.getElementByID("result_box").innerText «
Hier bekomme ich kein Ergebnis.
Kann mir einer sagen woran es liegen könnte ? fehlt mir ein Verweis ?
M.f.G.
Berny