Sub Test() Dim opt As New StructSaveAsOptions If ActiveDocument.Dirty Then ActiveDocument.Save opt.EmbedICCProfile = False opt.EmbedVBAProject = True opt.Filter = cdrCDR opt.IncludeCMXData = False opt.Overwrite = True opt.Range = cdrAllPages opt.ThumbnailSize = cdr10KColorThumbnail opt.Version = cdrCurrentVersion ActiveDocument.SaveAs "C:\Image9.cdr", opt End Sub