Textbearbeitung unter CorelDRAW

[koter]

Hallo Kay,

willkommen im Forum!

Meinst Du das so?:



Falls ja, geht das mit diesem Makro:

Code:

Sub Textumkehren()
    Dim txeT As String
    On Error Resume Next
    For i = 1 To ActiveShape.Text.Story.Lines.Count
        txeT = txeT & StrReverse(ActiveShape.Text.Story.Lines(i))
    Next i
    ActiveShape.Text.Story.Text = txeT
End Sub

(erstellt mit X5)

Das ist natürlich nichts für Typografie-Liebhaber. Das Kerning-Paar „Te“ kommt wahrscheinlich in jeder Unterschneidungstabelle vor, „eT“ wird es wohl selten geben.

Gruß

Koter