| Name | Type | Description |
|---|---|---|
| FileName |
String
|
|
| Options | Specifies the save options of the document. |
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