Draw Text Übersetzung

[koter]

Habe mir schon gedacht, wenn man in Draw bei Text suchen und ersetzen z.B eine Exzelliste laden könnte, in einer Spalte die Originalwörter in der nächsten Spalte die Übersetzung................ wir wohl nicht kommen ;-)

Hallo norre,

falls Du mit Exzelliste eine Exceltabelle meinst, würde das mit einem Makro gehen.

Code:

Sub VonXlErsetzen()
    Dim ap As Page, p As Page
    Set ap = ActivePage
    Set xl = GetObject(, "Excel.Application")
    i = 1
    ActiveDocument.BeginCommandGroup "Text Ersetzen"
    Do
        t = xl.Cells(i, 1).Value
        e = xl.Cells(i, 2).Value
        If t = "" Then
            Exit Do
        Else
            For Each p In ActiveDocument.Pages
               p.TextReplace t, e, True, False
            Next p
        End If
        i = i + 1
    Loop
    Set xl = Nothing
    ActiveDocument.EndCommandGroup
    ap.Activate
End Sub

Zum Ausführen muß eine Exceltabelle geöffnet sein, bei der in Spalte A die Originalwörter und in Spalte B die übersetzten Wörter stehen. Bei der ersten leeren Zeile bricht das Makro ab. Es sollte keine andere Exceltabelle geöffnet sein.

So kann man Wörter ersetzen, aber was ist mit der Syntax?

Gruß

koter