Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

[koter]

Hallo Destiny,

wenn Du den for each-Block in Deinem Makro durch den folgenden ersetzt,
wird ein Zeilenumbruch Zwischen Vor- und Nachname gesetzt.
Erst wenn das immer noch zu breit ist wird gestaucht.

Code:

For Each Text In Grafiktext
    'geschütztes Leerzeichen (Strg+Umschlt+Leertaste) durch Zeilenumbruch ersetzen
    If Text.SizeWidth > Seite.SizeWidth / 100 * Breite Then
        Text.Text.Story = Replace(Text.Text.Story, Chr(160), vbCrLf)
        Text.CenterX = Seite.CenterX
        Text.CenterY = Seite.CenterY
    End If
    'Text stauchen
    If Text.SizeWidth > Seite.SizeWidth / 100 * Breite Then
        Text.SizeWidth = Seite.SizeWidth / 100 * Breite
        Text.CenterX = Seite.CenterX
        Text.CenterY = Seite.CenterY
    End If
Next

Damit das funktioniert musst Du das Leerzeichen im Seriendruck-Dokument
durch ein geschütztes Leerzeichen ersetzen (Strg+Umschlt+Leertaste).

Also das Leerzeichen zwischen den Seriendruckfeldern:
<Vorname>_<Nachname>

Willst Du nur stauchen, kannst Du den ersten if-Block entfernen.
Das Leerzeichen muss dann nicht ersetzt werden.

Gruß

Koter