Mehrere Dateien auf einer Seite öffnen/importieren?

[koter]

Also: lassen sich mit Corel die Inhalte ganzer Ordner auf einmal öffnen, ohne dass der User interagieren muss?

Hallo Tom,

folgender Code importiert alle EPS-Dateien eines Ordners.
(Getestet mit X4/XP)

Code:

Sub EPSHaufen()
    Dim fs, f, f1, fc, s, Pfad
    Dim impflt As ImportFilter
    Dim dn As String
    Dim sr As New ShapeRange
    Pfad = CorelScriptTools.GetFolder("D:\temp\eps")
    If Pfad = "" Then Exit Sub
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Pfad)
    Set fc = f.Files
    For Each f1 In fc
        If Right(f1.Name, 4) = ".eps" Then
            dn = Pfad & "\" & f1.Name
            Set impflt = ActiveLayer.ImportEx(dn, cdrPSInterpreted)
            impflt.Finish
        End If
    Next
    
    'verteilen
    For Each s In ActiveLayer.Shapes
        sr.Add (s)
    Next
    sr.Distribute 4, True
End Sub

In der Zeile Pfad = CorelScriptTools.GetFolder("D:\temp\eps")
kannst Du den Startpfad der Ordnersuche angeben (zwischen den Anführungszeichen).

Die Zeilen nach: 'verteilen kannst Du löschen falls die Objekte nicht verteilt werden sollen.
Sie liegen dann alle auf einem Haufen in der Seitenmitte. (End Sub) muss natürlich stehen bleiben.

Da hast Du Dir ja ein ordentliches Projekt vorgenommen!
(Was sind eigendlich "Windows Makros" ?)

Viel Erfolg,

koter