Application.CreateStructSaveAsOptions

Object Model Reference : Classes : A : Application : Methods : Application.CreateStructSaveAsOptions

Function CreateStructSaveAsOptions() As StructSaveAsOptions

The CreateStructSaveAsOptions creates a StructSaveAsOptions object.

The following VBA example saves each open document to the drive labelled as “C.”

Sub TestSaveAs()

Dim sa As StructSaveAsOptions

Dim d As Document

Set sa = CreateStructSaveAsOptions

With sa

.EmbedICCProfile = True

.EmbedVBAProject = True

.Filter = cdrCDR

.IncludeCMXData = True

.Overwrite = True

.ThumbnailSize = cdr10KColorThumbnail

.Version = cdrCurrentVersion

End With

For Each d In Documents

d.SaveAs "c:\" & CStr(d.Index) & ".cdr", sa

Next d

End Sub