Füllung für Textrahmen

[koter]

Hallo Norre,

Ich habe keine Ahnung ob und wie die zeilenweise Einfärbung auf normalem Wege mit X4 oder X5 geht.

Da ich das, genau wie Du, für jede zweite Zeile brauchte, habe ich mir vor einiger Zeit mal ein Makro dafür erstellt:

Code:

Sub HGFarbeJedeZweiteZeile()
    lz = 1
    For Each l In ActiveShape.Text.Story.Lines
        If lz Mod 2 = 1 Then
            l.CharBackFill.UniformColor.RGBAssign 255, 255, 0
        Else
            l.CharBackFill.UniformColor.RGBAssign 255, 255, 255
        End If
        lz = lz + 1
    Next
End Sub

Die Funktion gibt es also schon mindestes seit X4. Vielleicht hat Corel vergessen, das auch über die Benutzeroberfläche zugänglich zu machen, oder ich habe es nicht gefunden.

Bei X5 geht der Text nicht (Wie in Deinem Screenshot) über den Textrahmen hinaus, sondern es erfolgt ein automatischer Zeilenumbruch. Die Textfunktionen sollen ja bei X6 gründlich überarbeitet worden sein, es ist also möglich, dass sich auch die Tabstops anders verhalten.

Ich lösche immer alle Tabstops und füge nur an den Stellen welche ein, wo sie gebraucht werden. Das schafft eine bessere Übersicht.

Gruß

Koter