alle offenen Dateien speichern, mit Option

[twinx]

Hallo,

ich will gerne Dateien, die in Coreldraw Version 12 abgespeichert sind für Version 9 abspeichern. Soweit bin ich gekommen:

Sub test3()
    '
    ' Recorded 20.09.2005
    '
    ' Description:
    '
    '
    For Each Doc In Documents
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = New StructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = False
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .ThumbnailSize = cdr10KColorThumbnail
        .Version = cdrVersion9
    End With
    ActiveDocument.Save
    Next Doc
End Sub

Es wird zwar gespeichert, aber dann doch nicht in Version 9.

Wenn ich aber die Sache mit einem einzelnen Dokument mache mit SaveAs, dann wird in Version 9 gespeichert:

Sub test5()
    '
    ' Recorded 20.09.2005
    '
    ' Description:
    '
    '
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = New StructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = False
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .ThumbnailSize = cdr10KColorThumbnail
        .Version = cdrVersion9
    End With
    ActiveDocument.SaveAs "C:\Eigene Dateien\1.cdr", SaveOptions
End Sub

Ich verstehe VBA noch nicht...