Stapelverarbeitung?

[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