Stapelverarbeitung?

[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