Hallo liebe Leute,

ich suche eine Möglichkeit in einer großen Corel Draw X7 Datei (Seriendruck - 1000 Seiten) diese Seiten automatisch zu benennen.
Ideal wäre es, wenn ein Seriendruckfeld ausgelesen würde und dieser Inhalt dann den jeweiligen Seitenname ergäbe.

Hat irgend jemand eine Idee??? Vielleicht mittels Makro??

Danke schon einmal im voraus

Mike

Hi,
ich kenn die Seriendruckfunktion von Corel gar nicht, aber vermutlich sind im "zusammengeführten Dokument" keinerlei Bezüge mehr zu den Datenfeldern vorhanden?
Das Problem ist also, auf den 1000 Seiten jeweils genau DEN Text (=ehemaliges Datenfeld) rauszupicken, der den neuen Seitennamen ergeben soll?!

Frage: Ist es möglich, im Seriendruck-Hauptdokument dem gewünschten Datenfeld einen bestimmten Namen (also statt "Grafiktext" z.B. "als_Seitenname") zu geben, und dieser neue Name wird auch vom/im "zusammengeführten Dokument" auf allen Seiten übernommen?
DANN sollte dieses Makro die Aufgabe lösen:

Code

Sub Neue_Seitennamen_zuweisen() 
  Dim doc As Document 
  Dim p As Page 
  Dim s As Shape 
   
  Set doc = ActiveDocument 
     For i = 1 To doc.Pages.Count    'alle Seiten durchlaufen 
        Set p = doc.Pages(i) 
        'nun die Seite nach einem Textobjekt namens "als_Seitenname" durchsuchen 
        Set s = p.FindShape(Name:="als_Seitenname", Type:=cdrTextShape) 
        If s Is Nothing Then   'Warnmeldung ausgeben 
           MsgBox "Ein Textfeld 'als_Seitenname' wurde nicht gefunden auf Seite " & p.Index 
        Else 
           p.Name = s.Text.Story  'Seite umbenennen 
        End If 
     Next i 
End Sub 

Antwort auf [ Henry ]

Frage: Ist es möglich, im Seriendruck-Hauptdokument dem gewünschten Datenfeld einen bestimmten Namen (also statt "Grafiktext" z.B. "als_Seitenname") zu geben, und dieser neue Name wird auch vom/im "zusammengeführten Dokument" auf allen Seiten übernommen?

Antwort: Ja, der Objektname wird an alle Seiten des Serien-Dokuments weitervererbt! :-)
Hab es eben kurz ausprobiert.

@ Henry super vielen Dank
klappt hervorragend.

Jetzt habe ich aber noch eine weitere Frage :-)
Kann man in Corel auch aus einem Seriendruckfeld heraus ein Farbfläche füllen?

Es geht um Etiketten für einen Farbhersteller. (so knapp 8.000 Stück, verschiedene Füllgrößen u.ä.)
alle Daten liegen in einer Excel Datei und werden über die Seriendruckfunktion in das Hauptdokument eingefügt.
Nun soll aber auch die jeweilige Farbe auf dem Etikett erscheinen.(HKS als C4 angelegt)
Bisher denken wir an viel Handarbeit, aber vielleicht gibt es ja noch eine andere Möglichkeit?
Für alle Hinweise offen….. und schon mal vielen Dank
Mike
.

Antwort auf [ Mike05 ]

...
Kann man in Corel auch aus einem Seriendruckfeld heraus ein Farbfläche füllen?...

Ich gehe mal davon aus, dass sowas nicht möglich ist, auch nicht in X7 oder X99. Mit der Seriendruckfunktion befüllst du doch nur vorgegebene Textfelder mit Daten!? Deshalb ist diese simple Funktion für komplexere "Datenbankoperationen" auch nicht besonders geeignet.

ABER über den Trick mit den Objektnamen lassen sich später im zusammengeführten Dokument* alle gewünschten Elemente per Makro unkompliziert addressieren, und dann kannst mit diesen Elementen ALLES 'vollautomatisch' bewerkstelligen: auslesen, manipulieren, löschen und auch einfärben. :-)

*) großer Nachteil ist halt, dass man/CorelDraw dann schon 1000 oder 8000 Seiten an der Backe hat, damit würde manch anderes Programm ganz schwer in die Knie gehen

Hallo Henry,

danke für die Info.
Dass "MAN" mit Makros das alles machen kann finde ich gut. Leider gehöre ich nicht zu diesen man :-(
Wie wäre den dann so der Workflow?
Ich(!) kann über die Seriendruckfunktion auf der Seite dem Feld den gewünschten Namen zuweisen, dann zusammenfügen, und dann habe ich 1000 Seiten auf denen jede Seite ein entsprechendes Feld hat, das auf die einzusetzende Farbe verweist. soweit verstanden, aber...
Wie bringe ICH dem Dokument bei, nun die entsprechende Farbe in dieses Feld einzusetzen??
Hast du da eine Idee??
(wie gesagt, es geht letztlich um ca. 8.000 Artikel)
Danke Mike

Also falls Interesse besteht, könntest du mir aus deinem Seriendoc 3 oder 4 Seiten abspeichern und zwar in der/als Version X4. Muss nicht das endgültige Layout sein - nur sollten schon alle Datenfelder/Grafikelemente enthalten sein. Dann würde ich mir das in den nächsten Tagen mal näher anschauen.
Eine meiner "E-Müll"-Adressen habe ich (kurzfristig) im HDS-Profil hinterlegt.

Hallo Henry,
Danke für das Angebot.
Nun habe ich seit heute die Info, das der "Neue tolle Drucker" sich die Farben selbst aus einer Tabelle zieht.
Es muss lediglich eine Farbfläche mit einer Schmuckfarbe im Hauptdokument als Farbfläche definiert sein, und fertig.
Problem gelöst, nur einmal anlegen, Maschine macht den Rest. Alles gut.
Nochmal Danke
Mike