Application.CreateStructSaveAsOptions

Function CreateStructSaveAsOptions() As StructSaveAsOptions

The CreateStructSaveAsOptions creates a StructSaveAsOptions object.

The following code 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