Sub Test() Dim so As New StructSaveAsOptions so.EmbedICCProfile = False so.EmbedVBAProject = True so.IncludeCMXData = False ActiveDocument.SaveAs "C:\Temp\File.cdr", soEnd Sub