Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

[OsCor]

Nachdem das Problem von Destiny jetzt gelöst scheint und ich auf der Suche nach der Lösung für ein verwandtes Problem bin, hänge ich mich mal an. Wenn das nicht ok ist oder als wesentlich unterschiedlich betrachtet wird, bitte ich um einen entsprechenden Hinweis! Ich eröffne dann einen separaten Faden.

Leute, für die ich einen Text setzen und drucken muss, haben häufig einen Part dabei, der so aussehen könnte:

Wir heiraten
Maria & Josef
28. September 2020

So ein Text erscheint dann zentriert auf der Seite, die Namen deutlich größer als der Rest. Für die Kunden habe ich eine Liste zusammengestellt mit all den (Schmuck-)Schriften, die ich im weitesten Sinn für anwendbar halte. Ich stelle die Liste zum Download auf unserer Website bereit.
Die Namen in der Liste ersetze ich per „Text ersetzen”-Funktion durch die Kundennamen, damit die eine Vorstellung davon bekommen, wie das hinterher aussieht (sie kriegen auch noch einen Dummy-Text, damit sie auch eine Vorstellung kriegen, wie Fließtext mit der gewählten Schrift aussieht).
Als Problem stellen sich hin und wieder sehr lange Namen heraus. Bei diesen möchte ich die Schriftgröße mit einem Makro so anpassen, dass sie eine Maximalausdehnung nicht überschreiten.
Meine Überlegung war, das Makro nach dem bekannten Text suchen zu lassen, zu prüfen, ob die Laufweite der Schrift nicht zu groß ist in der vorgegebenen Punktgröße und diese Größe gezielt zu verringern.

Ist das ähnlich wie im Falle von Destiny in den Griff zu bekommen?

Gruß
Oswald

[norre]

Hallo Oswald,
Beitrag gelöscht - falsche Baustelle meinerseits :oops:

Gruß Norre

[OsCor]

Jaa, eigentlich sollten ja über Fasching alle Baustellen zu und gut gesichert sein ;-)

[koter]

Hallo Oswald,

Ist das ähnlich wie im Falle von Destiny in den Griff zu bekommen?

Das sollte mit kleinen Änderungen am Makro gehen:

Code:

Sub GrafiktextVerkleinern()
    Dim Seite As Page
    Dim Grafiktext As ShapeRange
    Dim Text As Shape
    Dim Breite As Double
    Dim Suchtext As String
    
    Breite = 40 '(mm)
    Suchtext = "28. September 2020"
    
    ActiveDocument.Unit = cdrMillimeter
    ActiveDocument.ReferencePoint = cdrCenter
    ActiveDocument.BeginCommandGroup "Text verkleinern"
    Optimization = True
    For Each Seite In ActiveDocument.Pages
        Set Grafiktext = Seite.Shapes.FindShapes(Query:="@type ='text:artistic' and @com.text.story.text.contains('" & Suchtext & "')")
        If Not Grafiktext Is Nothing Then
            For Each Text In Grafiktext
                If Text.SizeWidth > Breite Then
                    Text.Stretch 1 / Text.SizeWidth * Breite
                End If
            Next
        End If
    Next
    Optimization = False
    ActiveDocument.EndCommandGroup
    ActiveWindow.Refresh
End Sub

Die Variablen Breite und Suchtext im Quellcode zu ändern, wäre wohl zu mühselig, falls Du das Makro oft benutzen willst.
Es sollte dann noch eine einfache Benutzerschnittstelle eingebaut werden.

Gruß

Koter

[OsCor]

Hallo Koter,

vermutlich kann man sich die Benutzerschnittstelle sparen. Die Breite des zur Verfügung stehenden Platzes für die Namen ist grundsätzlich 50 mm. Nur wenn also der Graphiktext mit den Namen wegen der Laufweite des Fonts die 50 mm überschreitet, muss skaliert werden. Da dieser Text aber immer das „&” als Alleinstellungsmerkmal enthält, könnte man vielleicht nach diesem & suchen, den Text als solchen identifizieren und dann weiter bearbeiten. Ich hoffe, du verstehst, was ich meine.
Die Syntax der Abfrage habe ich übrigens noch nicht richtig verstanden.

Edit: Hab´s gerade entsprechend angepasst und ausprobiert. Funktioniert - braucht für die 290 Vorkommen nur ein paar Sekunden. Juhu! Jetzt mache ich mir noch eine Schaltfläche und dann bin ich glücklich

Herzlichen Dank
Oswald

P.S. Ich hatte heute früh schon mal was Ähnliches geschrieben, bin aber rausgeflogen, weil das Denken zu lange gedauert hat…

[Unkraut]

P.S. (....) bin aber rausgeflogen, weil das Denken zu lange gedauert hat…

Hallo Oswald,
in unserem Forum kann man auch gaaaaanz lange denken. Dazu gibt es dieses Knöpfchen direkt bei der Anmeldung.


Einen schönen Sonntag ohne Kopfzerbrechen und ein "Ahoi" an alle kurpfälzer Narren, Chris

[OsCor]

Hallo Chris,

klar, ich habe mich hinterher auch gefragt, wieso das Häkchen auf einmal nicht mehr gesetzt war…:roll: Hab ich wohl mal in einem Anfall von geistiger Umnachtung „enthakt” ;-)

Gruß
Oswald

Ergänzung: Kann man denn in Corel X7 einzelne Schaltflächen wie in Excel hinzufügen? Ich finde gerade keinen Weg als die Symbolleiste für Makros zu aktivieren. Reine Bequemlichkeitsfrage.