Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen
#20
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
Zitieren



Nachrichten in diesem Thema
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - von koter - 09.11.2016, 19:54

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Corel 16/FineCut 8: Kurven werden zu eckig geplottet kalle 1 418 08.10.2025, 12:17
Letzter Beitrag: Boerni
  Corel Draw Bibliothek und Hilfslinien anorak 5 927 21.07.2025, 14:20
Letzter Beitrag: m.ster
  Export für Corel X7 wolfcom 3 724 10.07.2025, 13:17
Letzter Beitrag: m.ster
  Corel Draw X5 WOT 5 1.292 03.07.2025, 11:58
Letzter Beitrag: m.ster
  Exel-Preisliste in Corel verknüpfen J.Eden 1 612 27.06.2025, 10:49
Letzter Beitrag: m.ster
  PDF nach importieren, automatisch verändert sebastian84 4 1.089 06.04.2025, 21:20
Letzter Beitrag: mvm
  Corel Draw Essentials 2024 - Speichert keine Dateien Xaroh 1 624 02.04.2025, 18:37
Letzter Beitrag: Xaroh
  Verzerren im Corel Draw 2019 Werner7272 1 640 06.03.2025, 20:37
Letzter Beitrag: Piet
  Neuinstallation von Corel DRAW X5 nach einem Crash Bronimus 1 884 08.02.2025, 09:49
Letzter Beitrag: Bronimus
  MAUSZEIGER COREL 19 WIN 11 eon247 0 552 21.01.2025, 13:54
Letzter Beitrag: eon247