Saving as x6 all the time while using x8

Is it possible to set CorelDraw x8 so that i can save as an x16 file all the time while using x8  ...i understand you can use a macro to do it, but i have never used macro's before!

Parents
No Data
Reply
  • -Open macro manager docker (Alt+shift+F11),
    -right click on Visual Basic for Applications & choose New Macro Project
    -name it "SaveAsX6" without the quotes and hit ok,
    -down at the bottom of the tree you'll see the heading, right click on it and choose new module
    -click off of it then right click on it and choose new macro
    -copy and paste all the following in that space instead
    -right click on the macro in the docker and choose run
    -you can also add it to any toolbar for quick use

    Sub SaveAsX6()
    Dim Path As String
    Dim Name As String
    Path = ActiveDocument.FilePath
    Name = ActiveDocument.FileName

    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
    .EmbedVBAProject = True
    .Filter = cdrCDR
    .IncludeCMXData = False
    .Range = cdrAllPages
    .EmbedICCProfile = False
    .Version = cdrVersion16
    End With

    ActiveDocument.SaveAs Path + "\" + Name, SaveOptions
    End Sub
Children