+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Mengentextrahmen-Verknüpfungen kopieren (/showthread.php?tid=38879)
Mengentextrahmen-Verknüpfungen kopieren - SabineKa - 27.01.2026
Hallo, liebes Forum!
Ich bin froh, Euch gefunden zu haben. :-)
Ich raufe mir gerade die Haare weil ich nicht wirklich weiterkomme. Mein Problem:
Wir produzieren runde Marken mit einem Durchmesser von 30 mm. Gedruckt werden diese auf Platten im Format 1000 x 1000 mm und dann entsprechend ausgestanzt.
Jetzt sollen diese Marken fortlaufend durchnummeriert werden.
Habt ihr eine gute Idee, wie ich das bewerkstelligen kann?
Meine Idee war, dass ich auf den Marken einen Mengentextrahmen anlege, diese dann miteinander kombiniere / verknüpfe und mir dann in Excel entsprechende Daten aufbereite. Aaaaber: Bei einer Auflage von 500 Stück müsste ich 500 x die Mengentextfelder verknüpfen weil Corel die Verknüpfungen nicht mit kopiert.
Wie gesagt: Ich raufe mir gerade die Haare, da dieses Thema nun leider öfter kommt. Manchmal auch mit mehr als 10.000 Marken. Das kann ich unmöglich per Hand alles verknüpfen.
Ich danke Euch so sehr, wenn ihr eine Idee habt wie das besser / schneller geht.
Sabine, zur Zeit mit wilder Frisur
RE: Mengentextrahmen-Verknüpfungen kopieren - miss_marple - 27.01.2026
Dafür ist der Seriendruck zuständig.
Kurzfassung
eine kleine Seite anlegen, z.B. 40 x 40 mm. Den Kreis zeichnen.
- Menü Datei > Seriendruck
- Spalte hinzufügen: Name / Typ: numerisch / Haken weg bei Wert erhöhen / Startwert 1 / Endwert: irgendeiner, aber bloß nicht so viel, das kann Corel nicht ab. also eine Teilmenge. Zum Testen mal 15 Stück. > Hinzufügen
- auf Feld einfügen klicken (das Feld <nummer> in den Kreis schieben und nach Wunsch formatieren.
- Zusammengeführtes Dokument drucken > Druckvorschau (Hier mit dem gefalteten Symbol linnks und den Werten für Zeilen und Spalten oben weitermachen.)
Gerne nachfragen, wenn du nicht weiterkommst.
miss_marple
[attachment=22399] [attachment=22400] [attachment=22401]
RE: Mengentextrahmen-Verknüpfungen kopieren - koter - 28.01.2026
Hallo Sabine,
willkommen im Forum!
Du könntest auch ein Makro verwenden:
![[Bild: Markennummern.gif]](https://i.postimg.cc/hj2qq66D/Markennummern.gif)
Das ist nur ein Beispiel. Die Animation ist gekürzt. Die Nummerierung (3600 Marken auf 4 Seiten) hat bei mir über eine Minute gedauert.
Bevor Das Makro ausgeführt wird muss eine Nummer als Grafiktext in die erste Marke gesetzt werden.
das Makro verwendet die Nummer als erste Zahl und zählt von da aus hoch.
Marke und Grafiktext müssen vor dem Start ausgewählt werden.
Das Makro:
Code:
Sub Nummerieren()
Dim Seite As Page
Dim srNo As New ShapeRange, srMarken As New ShapeRange, srMarkenSeite As New ShapeRange
Dim srMuster As ShapeRange
Dim s As Shape, sMNummer As Shape, sObj As Shape
Dim sNummer As New Shape
Dim Nummer As Integer, z As Integer
Set srMuster = ActiveSelectionRange
For Each s In srMuster
If s.Type = cdrTextShape Then
Set sMNummer = s
srNo.Add sMNummer
Else
Set sObj = s
srNo.Add sObj
End If
Next
For Each Seite In ActiveDocument.Pages
Set srMarkenSeite = Seite.FindShapes
srMarkenSeite.Sort " @shape1.Top * 100 - @shape1.Left > @shape2.Top * 100 - @shape2.Left"
srMarken.AddRange srMarkenSeite
Next
srMarken.RemoveRange srNo
Nummer = Val(sMNummer.Text.Story)
ActiveDocument.BeginCommandGroup "Nummerieren"
Application.Optimization = True
For Each s In srMarken
Nummer = Nummer + 1
Set sNummer = sMNummer.CopyToLayer(s.Layer)
With sNummer
.Text.Story = Nummer
.CenterX = s.CenterX
.CenterY = s.CenterY
End With
Next
Application.Optimization = False
ActiveDocument.EndCommandGroup
Application.Refresh
Refresh
End SubEin ähnliches Thema hatten wir schon einmal. Vielleicht ist das für Dich interessant.
Gruß
Koter