Speichern Standard Corel Versionen

[koter]

Hallo alwo,

willkommen im Forum!

Ich habe gerade probiert das Makro herunterzuladen, es funktioniert!
Du musst natürlich angemeldet sein.

Für den Fall, das es tatsächlich nicht klappt, stelle den Quelltext (wie in der PN versprochen) ins Forum:

Code:

Private Sub GlobalMacroStorage_DocumentClose(ByVal Doc As Document)
    Dim opt As New StructSaveAsOptions
    If Doc Is Nothing Then Exit Sub
    If Doc.FullFileName <> "" Then
        X4Name = Left(Doc.FileName, Len(Doc.FileName) - 4) & "_X4.cdr"
        Mldg = Doc.FileName & " als" & vbCrLf & X4Name & vbCrLf & "speichern?"
        Stil = vbYesNo + vbQuestion + vbDefaultButton2
        Titel = "Kopie als X4-Datei speichern"    '
        Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)
        If Antwort = vbYes Then
            opt.Filter = cdrCDR
            opt.Overwrite = True
            opt.Range = cdrAllPages
            opt.Version = cdrVersion14
            Doc.SaveAs Doc.FilePath & X4Name, opt
        End If
    End If
End Sub

Das Makro muss in den GlobalMacros unter ThisMacroStorage eingebunden werden,
oder in einer eigenen GMS.

Gruß

Koter