Mengentextrahmen-Verknüpfungen kopieren

[SabineKa]

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

[miss_marple]

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

               

[koter]

Hallo Sabine,
willkommen im Forum!

Du könntest auch ein Makro verwenden:



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 Sub

Ein ähnliches Thema hatten wir schon einmal. Vielleicht ist das für Dich interessant.

Gruß

Koter