Stapelverarbeitung?

[DJMC]

Hallo an euch alle


Ich habe eine Coreldatei mit 450 Seiten erstellt und habe von einem Kunden 450 verschiedene QR-Code's als EPS Datei bekommen,die allerdings in der Größe noch angepaßt werden müssen und auf einen bestimmten stand auf jeder Seite
eingefügt erden müssen......

Wie mache ich das am besten?


LG
Michael

[norre]

Hallo Michael,

um dir genau helfen zu können teile uns bitte deine Corelversion mit, auch ob du eine Vollversion oder eine Home & Student hast. Am besten schreibst du es in deine Singnatur schau HIER

Gruß
Norre

[DJMC]

So denke steht jetzt alles da:-)

[DJMC]

Oder hat jemand ein Makro für mich?

[koter]

Hallo Michael,

Oder hat jemand ein Makro für mich?

Ich habe ein schlichtes Makro zusammengebastelt:

Code:

Sub QREPSImp()
   Dim Pfad As String, EPSDateiPFix As String, Ebene As String, ImportDatei As String
   Dim x As Double, y As Double, w As Double, h As Double
   Dim i As Integer
   Dim QREPS As Shape
   
   Set QREPS = ActiveDocument.MasterPage.Layers("Hilfslinien").Shapes("QREPS")
   
   Pfad = "C:\temp\corelforum\DJMC\"
   EPSDateiPFix = "QR_"
   Ebene = ActiveLayer.Name
   
   i = 1
   QREPS.GetBoundingBox x, y, w, h
   ActiveDocument.BeginCommandGroup "QR Import"
   Application.Optimization = True
   For i = 1 To ActiveDocument.Pages.Count
       ImportDatei = Pfad & EPSDateiPFix & Format(i, "0#") & ".EPS"
       ActiveDocument.Pages(i).Layers(Ebene).Import ImportDatei, cdrEPS
       ActiveShape.SetBoundingBox x, y, w, h
   Next i
   Application.Optimization = False
   ActiveDocument.EndCommandGroup
   ActiveWindow.Refresh
   
End Sub

Du musst dazu ein Rechteck (Quadrat) zu den Hilfslinien der Masterseite hinzufügen und es QREPS nennen.
In Dieses werden die QR-Codes eingepasst.



Das Makro benutzt die Dateinamen der EPS-Dateien um sie der richtigen Seite zuzuordnen.
Das wird bei Deinen Dateien sicher anders sein.
Falls Du das Makro benutzen willst, muss es also noch auf Deine Bedürfnisse angepasst werden.

Gruß

Koter

[DJMC]

Guten morgen Koter

Erstmal vielen dank für dein Makro!
Jetzt muß ich gestehen das ich nicht so der Makro-Experte bin....:-(

Bekomme es nicht gestartet.....

Der Ordner liegt auf C:\QR-Codes
Das habe ich in deinem Script auch geändert, aber startet nicht.
Liegt es vielleicht an dem Dateinamen?
Die EPS fangen bei mir mit W0889140.eps an und hören mit W0889589.eps auf
ALso hinten Nummeriert!
Desweiten sind die EPS Dateien wenn ich die Importiere 91,666x91,666mm groß und soll 25x25mm groß werden!

Ich hänge mal die Masterseite mit an!

LG
Michael

[koter]

Hallo Michael,

...Der Ordner liegt auf C:\QR-Codes...
...Die EPS fangen bei mir mit W0889140.eps an und hören mit W0889589.eps auf...

OK, dann muss das Makro so aussehen:

Code:

Sub QREPSImp()
   Dim Pfad As String, EPSDateiPFix As String, Ebene As String, ImportDatei As String
   Dim x As Double, y As Double, w As Double, h As Double
   Dim i As Integer
   Dim QREPS As Shape
   
   Set QREPS = ActiveDocument.MasterPage.Layers("Hilfslinien").Shapes("QREPS")
   
   Pfad = "C:\QR-Codes\"
   EPSDateiPFix = "W0889"
   Ebene = ActiveLayer.Name
   
   i = 1
   QREPS.GetBoundingBox x, y, w, h
   ActiveDocument.BeginCommandGroup "QR Import"
   Application.Optimization = True
   For i = 1 To ActiveDocument.Pages.Count
       ImportDatei = Pfad & EPSDateiPFix & i + 139 & ".EPS"
       ActiveDocument.Pages(i).Layers(Ebene).Import ImportDatei, cdrEPS
       ActiveShape.SetBoundingBox x, y, w, h
   Next i
   Application.Optimization = False
   ActiveDocument.EndCommandGroup
   ActiveWindow.Refresh
   Exit Sub
   
End Sub

(getestet mit X4 (32Bit) und X6(64Bit))

...Desweiten sind die EPS Dateien wenn ich die Importiere 91,666x91,666mm groß und soll 25x25mm groß werden!...

Dann muss das oben genannte Rechteck bei den Hilfslinien der Masterseite 25x25mm groß sein.

Ich hänge mal die Masterseite mit an!

Den Anhang habe ich nicht gefunden, ich muss mich wohl noch intensiver mit der neuen Forensoftware beschäftigen!

Die Ausführung des Makros kann bei 450 Seiten einige Zeit dauern, habe also ein wenig Geduld!

Gruß

Koter

[Unkraut]

Den Anhang habe ich nicht gefunden, ich muss mich wohl noch intensiver mit der neuen Forensoftware beschäftigen!

Hallo Koter,
Du brauchst nicht nach dem Anhang  zu suchen, denn hier ist wohl keiner.

(Die Anzeige der Anhänge kann man unter Benutzer-CP →   Optionen → Themenansicht festlegen.)


Liebe Grüße, Chris

[DJMC]

Hier nochmal die Datei!

[norre]

Hallo Michael,
ich habe mir auch mal die Datei runtergeladen...man ist ja neugierig  

Was mir jetzt aufgefallen ist:
Ich denke die Beschriftung in den roten Kästen ändert sich bei jeder Seite?
Dann darfst du diese nicht auf eine Masterseite legen sondern mußt diese auf eine normale Ebene.
Bei zwei Beschriftungen hast du da ja gemacht.

Alles was auf allen Seiten gleich ist auf eine Masterseite, alles was sich ändert auf eine normale Ebene.

Das Rechteck für das Macro ist davon ausgenommen!

Gruß
Norre