Hi,
is there a way that CorelDRAW saves the files always for a previous version? E.g. I have X8 and want to save it in X6.
I know I can do that with the 'Save as..' dialog manually each time but I couldn't find that for the most often [CTRL] + S command.
Kaysimops
Use a macro
Sub SaveAsX8() 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 = cdrVersion18 End With ActiveDocument.SaveAs Path + "\" + Name, SaveOptionsEnd Sub
Nice, Myron.
Instead of getting the path and filename separately and putting them back together, you could use ActiveDocument.FullFileName and get it all in one.
Probably got that one from you years ago.I had it to save to X4
No, must have been from someone else. Saving back to an older version isn't something I have to do very often.
I think I only started getting interested in macros in mid-2016. I think it was this thread. That eventually grew into one of my favorite macros - "Adjust Objects; Retain Positions". How time flies!
While I'm thinking of it, I think you can create the StructSaveAsOptions when you declare it:
Dim SaveOptions As New StructSaveAsOptions.
Do it that way, and you don't need the next line to create it.