{"id":55000322,"date":"2022-08-01T00:00:00","date_gmt":"2023-03-02T17:04:48","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=322"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Texte_uebersetzen_mit_DeepL","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Texte_uebersetzen_mit_DeepL\/","title":{"rendered":"Texte übersetzen mit DeepL"},"content":{"rendered":"

Zum automatischen Übersetzen von Texten gibt es viele Anlässe. Vielleicht möchtest Du die Texte in einer Anwendung automatisch übersetzen lassen, damit Du selbst die Übersetzung nur noch prüfen und gegebenenfalls anpassen musst. Oder Du hast Texte in einer anderen Sprache, die Du gern in die deutsche Sprache übersetzen möchtest, um diese leichter lesen zu können. Wie auch immer: Es gibt zwar Dienste wie Google Translate, mit denen man das im Browser erledigen kann, aber wenn man viele oder umfangreiche Texte übersetzen lassen möchte, ist diese Lösung unbefriedigend. In diesem Fall bietet sich eine Automation des Vorgangs an. Und wie das geht, zeigen wir anhand eines der aktuell besten Übersetzungstools, nämlich DeepL. DeepL bietet eine API an, die wir per VBA oder mit anderen Programmiersprachen ansteuern können. Dieser Artikel stellt die Grundlagen dazu vor.<\/b><\/p>\n

Übersetzen mit DeepL<\/h2>\n

Die erste Anlaufstelle für die Arbeit mit der API des Übersetzungstools DeepL<\/b> ist die Webseite https:\/\/www.deepl.com<\/b>. Hier finden wir gleich zwei Textfelder, deren linkes wir für die Eingabe des zu übersetzenden Textes nutzen können. Geben wir hier einen Text ein, erkennt DeepL automatisch die verwendete Sprache und übersetzt den Text in die Sprache, die für das rechte Textfeld ausgewählt ist. Das geht auch recht schnell, sodass das Ergebnis wie in Bild 1 aussieht.<\/p>\n

\"DeepL<\/p>\n

Bild 1: DeepL in Aktion<\/span><\/b><\/p>\n

Die DeepL-API<\/h2>\n

Mit einem Klick auf das Menü rechts oben finden wir schnell den Eintrag API<\/b>. Klicken wir diesen an, landen wir auf einer Seite, die eine kostenlose Registrierung anbietet.<\/p>\n

Wählen wir diese Option, landen wir auf der Seite mit den verschiedenen Angeboten (siehe Bild 2). Die gute Nachricht ist: die kostenlose Variante reicht zum Ausprobieren der API wie in diesem Artikel beschrieben völlig aus.<\/p>\n

\"Angebot<\/p>\n

Bild 2: Angebot der DeepL-Api<\/span><\/b><\/p>\n

Wenn Du nicht auf mehr als 500.000 Zeichen im Monat kommst, wählst Du einfach diese Option – und wenn es mehr werden, wäre die zweite Option sinnvoll. Hier fallen allerdings nach aktuellem Stand 20 EUR pro 1.000.000 übersetzter Zeichen an. Wer einmal Texte von Hand übersetzt hat und die Qualität der Übersetzung von DeepL geprüft hat, wird dies vermutlich als sehr faires Angebot ansehen. Aber wie gesagt: Für uns reicht die kostenlose Variante.<\/p>\n

Zur Anmeldung benötigt DeepL Deine E-Mail-Adresse und Kennwort sowie einige weitere Informationen. Die Kreditkarteninformationen müssen angegeben werden, weil DeepL so Mehrfachanmeldungen und damit Missbrauch des kostenlosen Angebots umgehen möchte – es ist also eher eine vereinfachte Identitätsprüfung.<\/p>\n

Nach der Prüfung des Kreditkartenkontos bestätigt man noch die Bedingungen und danach kann es schon losgehen.<\/p>\n

DeepL-Konto verwalten<\/h2>\n

Im folgenden Schritt sehen wir eine Seite, von der aus wir uns unser Konto verwalten, aber auch einen Authentifizierungsschlüssel abrufen können.<\/p>\n

Letzteres ist genau das, was wir brauchen, um später per VBA auf die API von DeepL zuzugreifen (siehe Bild 3).<\/p>\n

\"Link<\/p>\n

Bild 3: Link zum Authentifizierungsschlüssel<\/span><\/b><\/p>\n

Den Authentifizierungsschlüssel finden wir dort schließlich im Bereich Konto<\/b>. Diesen Schlüssel kannst Du schon einmal in die Zwischenablage kopieren und dann in einem VBA-Modul eine Konstante mit diesem füllen (siehe Bild 4).<\/p>\n

\"Holen<\/p>\n

Bild 4: Holen des Authentifizierungsschlüssel von DeepL<\/span><\/b><\/p>\n

Authentifizierungsschlüssel in Konstante speichern<\/h2>\n

Die Konstante zum Speichern des Authentifizierungsschlüssels sieht wie folgt aus:<\/p>\n

Private <\/span>Const cStrAuthKey As String<\/span> = \"74dd9c25-8129-7d29-xxxx-332fc440e56a:fx\"<\/pre>\n
In den nachfolgend vorgestellten Prozeduren holen wir den Wert dieser Konstanten mit der folgenden Funktion:<\/p>\n
Public Function <\/span>GetAuthKey()\r\n     GetAuthKey = cStrAuthKey\r\nEnd Function<\/span><\/pre>\n
Warum greifen wir nicht einfach auf die Konstante zu? Weil wir je nach Anwendung, also Access, Word, Excel et cetera, eine andere Möglichkeit wählen können, um den Authentifizierungsschlüssel zu speichern. In Access würden wir diesen beispielsweise in einer Optionentabelle speichern, unter Excel vielleicht in einem separaten Worksheet, in Word vielleicht wie hier vorgeschlagen in einer Konstanten.<\/p>\n
Endpunkt in Konstante speichern<\/h2>\n
In einer weiteren Konstanten speichern wir die URL des zu verwendenden Endpunkts, also der Adresse, unter welcher die API zu erreichen ist.<\/p>\n
Für die freie Version lautet dieser:<\/p>\n
Private <\/span>Const cStrAPIEndpoint As String<\/span> = _\r\n      \"https:\/\/api-free.deepl.com\"<\/pre>\n
Für die kostenpflichtige Version verwenden wir den folgenden Endpunkt:<\/p>\n
Private <\/span>Const cStrAPIEndpoint As String<\/span> = _\r\n     \"https:\/\/api.deepl.com\"<\/pre>\n
Funktion zum Übersetzen von Texten<\/h2>\n
Die Funktion, die wir zum Übersetzen von Texten aufrufen, heißt TranslateDeepL <\/b>und sieht wie in Listing 1 aus. Sie erwartet die folgenden Parameter:<\/p>\n
Public Function <\/span>TranslateDeepL(strToTranslate As String<\/span>, intSourceLang As <\/span>SourceLanguage, _\r\nintTargetLang As <\/span>TargetLanguage) As String<\/span>\r\n     Dim <\/span>strRequest As String<\/span>\r\n     Dim <\/span>strResponse As String<\/span>\r\n     Dim <\/span>strAuth_Key As String<\/span>\r\n     Dim <\/span>strText As String<\/span>\r\n     Dim <\/span>strSource_Lang As String<\/span>\r\n     Dim <\/span>strTarget_Lang As String<\/span>\r\n     Dim <\/span>strStatus As String<\/span>\r\n     Dim <\/span>col As <\/span>Collection\r\n     \r\n     strAuth_Key = \"?auth_key=\" & GetAuthKey\r\n     strText = \"&text=\" & URLEncode(strToTranslate)\r\n     strSource_Lang = \"&source_lang=\" & GetLanguageCodeSource(intSourceLang)\r\n     strTarget_Lang = \"&target_lang=\" & GetLanguageCodeTarget(intTargetLang)\r\n     \r\n     strRequest = cStrAPIEndpoint & \"\/v2\/translate\" & strAuth_Key & strText & strSource_Lang & strTarget_Lang _\r\n         & \"&tag_handling=xml\"\r\n     Debug.Print<\/span> strRequest\r\n     If <\/span>HTTPRequest(strRequest, strResponse, strStatus) = 200 Then<\/span>\r\n         Debug.Print<\/span> strResponse\r\n         strResponse = Replace<\/span>(strResponse, \"{\"\"translations\"\":[{\"\"detected_source_language\"\":\"\"DE\"\",\"\"text\"\":\"\"\", \"\")\r\n         strResponse = Replace<\/span>(strResponse, \"\"\"}]}\", \"\")\r\n         TranslateDeepL = strResponse\r\n     Else<\/span>\r\n         MsgBox<\/span> \"Fehler beim Aufruf: \" & strStatus\r\n     End If<\/span>\r\nEnd Function<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t