Draw Text Übersetzung

[koter]

Hallo Norre,

Den Originaltext auch in die zu übersetzenden Abschnitte zu setzen ist kein Problem.

Im Screenshot sieht es so aus, als wenn dort Tabulatoren verwendet werden. Wenn der Übersetzer die zerschießt gibt es viel Nacharbeit für Dich.

Für das Problem fällt mir auf Anhieb nichts ein.

Um den Originaltext auch in die zu übersetzenden Abschnitte zu setzen musst Du in der SUB zuWord einen Befehl hinzufügen. Er ist im folgenden Code-Auschnitt mit: 'Originaltext in Übersetzungsfeld gekennzeichnet.

Code:

With wd.Selection
                    .TypeText t
                    .Sections(1).Range.Bookmarks.Add "SID" & sid
                    .TypeParagraph
                    .InsertBreak Type:=3
                    .TypeText t 'Originaltext in Übersetzungsfeld
                    .InsertBreak Type:=3
                End With

Gruß

Koter