Massenänderung der Dateiversion per Makro

[derhornist]

Hallo,

ich würde gerne alle .cdr- Dateien (mit X3) erstellt, mit X3 öffnen und gleich wieder als Dateien der Version 10 speichern. Ich möchte diese Dateien einem Freund zur Verfügung stellen, der die Version 10 nutzt. Ich habe versuchshalber mal den Vorgang per Makro aufgezeichnet. Wie müsste ich den Code nun ändern, damit das für alle Dateien in einem Verzeichnis klappt?

Sub Dateiformat()
' Recorded 13.04.2015
Dim openopt As StructOpenOptions
Set openopt = CreateStructOpenOptions
With openopt.ColorConversionOptions
.SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
.TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
End With
Dim doc1 As Document
Set doc1 = OpenDocumentEx("L:\CorelDraw\Vorlage_Trennbl„tter_schmal.cdr", openopt)
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = True
.Range = cdrAllPages
.EmbedICCProfile = True
.Version = cdrVersion10
End With
doc1.SaveAs "L:\CorelDraw\Vorlage_Trennbl„tter_schmal.cdr", SaveOptions
End Sub

Danke und Gruß