[CDR X5-X8] сохранить с текущим именем

[justcoder]

Как можно указать в команде ниже, чтобы корел сохранил документ под тем же самым именем, с которым он был открыт, и в той же самой папке.

ActiveDocument.SaveAs "C:\Users\User\Desktop\Doc-1.cdr", SaveOptions

Другими словами, как записать команду SaveAs так, чтобы она сработала как Save ?

 

[lev]

ActiveDocument.SaveAs ActiveDocument.Filepath, SaveOptions

 

[justcoder]

Что -то не получается использовать это в макросе сохранения в раннюю версию.

Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = True
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .Version = cdrVersion11
        .KeepAppearance = True
    End With
    ActiveDocument.SaveAs ActiveDocument.FilePath, SaveOptions

Выполняю макрос на текущем документе из Х8, далее открываю в Х3 - и он его не может открыть.