Sub Test() Dim so As New StructSaveAsOptions so.Version = cdrVersion7 ActiveDocument.SaveAs "C:\Temp\File7.cdr", soEnd Sub