Examples:
If the file file.cdr already exists in the folder C:\Temp, the following code example fails while saving the active document.
Sub Test()
Dim so As New StructSaveAsOptions
so.Overwrite = False
ActiveDocument.SaveAs "C:\Temp\File.cdr", so
End Sub