![\"Beispiel](\"..\/fileadmin\/_temp_\/2023_01\/pic_346_002.png\")
<\/p>\nNachdem wir schon gezeigt haben, wie Du Texte in einer Excel-Tabelle übersetzen kannst, schauen wir uns nun an, wir die die DeepL-Techniken für die Gegenüberstellung der englischen und der deutschen Version eines Textes nutzen können. Dazu wollen wir bei einem Text beginnen, der sich in einem Word-Dokument befindet und diesen in ein neues Dokument übertragen, wo wir die einzelnen Absätze des Textes in jeweils eine Zelle in der linken Spalte einer Word-Tabelle einfügen. Nachdem wir den Text so auf die Zellen einer Tabelle aufgeteilt haben, wollen wir in der rechten Spalte per Aufruf der DeepL-REST-API die Übersetzung in der gewünschten Sprache unterbringen. Das Ergebnis: Die Übersetzung eines Textes, wobei jeweils ein Absatz in der einen Sprache dem gleichen Absatz in der anderen Sprache gegenübergestellt wird.<\/b><\/p>\n
Den VBA-Code, mit dem wir die gewünschten Aufgaben erledigen, fügen wir zunächst in das Klassenmodul ThisDocument <\/b>des aktuellen Dokuments ein. Hier wollen wir einen Dateiauswahldialog unterbringen, mit dem der Benutzer die Quelldatei für den Ausgangstext selektieren kann.<\/p>\n
Diese enthält einfache Absätze mit Texten wie beispielsweise wie in Bild 1. Anschließend soll die Prozedur die Inhalte dieses Dokuments einlesen und in eine neue Tabelle im aktuellen Dokument schreiben – und zwar auf die linke Seite. Eine zweite Prozedur soll alle in der linken Spalte der Tabelle enthaltenen Texte einlesen und mit einem Aufruf der REST-API von DeepL den Text in der gewünschten Sprache ermitteln. Die Übersetzung des aktuellen Absatzes soll dann in die zweite Spalte der Tabelle neben dem Originaltext eingefügt werden.<\/p>\n
<\/p>\n
Bild 1: Beispiel für ein Ausgangsdokument<\/span><\/b><\/p>\n Die Hauptprozedur, die wir einfach aufrufen und welche die übrigen Funktionen und Prozeduren startet, heißt Uebersetzen<\/b>. Sie ruft als Erstes die Funktion DateiAuswaehlen <\/b>auf, welche den Dateiauswahldialog öffnet und mit dem der Benutzer die Word-Datei auswählt, aus welcher der zu übersetzende Text eingelesen werden soll (mehr dazu im Anschluss).<\/p>\n Der Pfad zu dieser Datei wird in der Variablen strPfad <\/b>gespeichert. Die Prozedur Uebersetzen<\/b> prüft anschließend, ob strPfad <\/b>nicht die Länge 0 <\/b>hat, was darauf hindeutet, dass der Benutzer gar keine Datei ausgewählt hat – in diesem Fall wird die Prozedur mit einer Meldung abgebrochen.<\/p>\n Im Else<\/b>-Teil der Bedingung, die nur angesteuert wird, wenn strPfad <\/b>nicht leer ist, prüfen wir auch noch, ob strPfad <\/b>auf eine gültige Datei verweist:<\/p>\n Ist eine gültige Datei in strPfad <\/b>angegeben, rufen wir die Funktion TextAusDokumentInTabelle <\/b>auf und übergeben dieser den Pfad zum Dokument mit dem zu übersetzenden Text. Diese Funktion soll die Tabelle erstellen und mit den Absätzen aus dem Word-Dokument mit dem Originaltext füllen und einen Verweis auf diese Tabelle als Parameter zurückgeben:<\/p>\n Ist objTable <\/b>danach nicht leer, rufen wir schließlich noch die Prozedur UebersetzungDurchfuehren <\/b>auf und übergeben dieser den Verweis auf die Tabelle, in deren linker Spalte bereits die zu übersetzenden Texte warten:<\/p>\n Die Funktion DateiAuswaehlen <\/b>aus Listing 1 soll einen Dateiauswahldialog anzeigen und den Pfad zu der ausgewählten Datei als Ergebnis zurückliefern.<\/p>\n Listing 1: Die Funktion DateiAuswaehlen öffnet einen Dateiauswahldialog.<\/span><\/b><\/p>\n Die Funktion erstellt ein FileDialog<\/b>-Objekt des Typs msoFileDialogFilePicker<\/b>. Es legt das Verzeichnis der aktuellen Word-Datei als initial anzuzeigendes Verzeichnis fest und leert dann die gegebenenfalls vorhandenen Filter, um einen neuen Filter mit der Dateiendung .docx <\/b>und der Bezeichnung Word-Dokument <\/b>hinzuzufügen. Dann ruft sie die Show<\/b>-Methode auf, um den Dateidialog anzuzeigen (siehe Bild 2). Liefert diese Methode den Wert True<\/b>, hat der Benutzer den Dialog bereits wieder geschlossen.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Hauptprozedur zur Steuerung des Ablaufs<\/h2>\n
Public Sub <\/span>Uebersetzen()\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>objTable As <\/span>Table\r\n strPfad = DateiAuswaehlen\r\n If <\/span>Len<\/span>(strPfad) = 0 Then<\/span>\r\n MsgBox<\/span> \"Keine Datei ausgewählt.\"\r\n Exit Sub<\/span>\r\n Else<\/span>\r\n If <\/span>Len<\/span>(Dir(strPfad)) = 0 Then<\/span>\r\n MsgBox<\/span> \"Kein gültiger Dateipfad.\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n End If<\/span><\/pre>\n Set<\/span> objTable = TextAusDokumentInTabelle(strPfad)<\/pre>\n If <\/span>Not<\/span> objTable Is Nothing Then<\/span>\r\n UebersetzungDurchfuehren objTable\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAuswahl der Datei mit dem Originaltext<\/h2>\n
Public Function <\/span>DateiAuswaehlen() As String<\/span>\r\n Dim <\/span>objFileDialog As <\/span>FileDialog\r\n Dim <\/span>objFilter As <\/span>FileDialogFilter\r\n Set<\/span> objFileDialog = Application.FileDialog(msoFileDialogFilePicker)\r\n With<\/span> objFileDialog\r\n .InitialFileName = ThisDocument.Path & \"\\\"\r\n .Filters.Clear\r\n .Filters.Add \"Word-Dokument\", \"*.docx\"\r\n If <\/span>.Show = True<\/span> Then<\/span>\r\n DateiAuswaehlen = .SelectedItems(1)\r\n End If<\/span>\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\n![\"Dokument](\"..\/fileadmin\/_temp_\/2023_01\/pic_346_001.png\")
<\/p>\n
\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