'//////////////////////////////////////////////
Rem Сохраняет файлы в более ранних версиях.
Rem По умолчанию настроен на 11 версию.
Rem Изменения версий можно вносить путем замены цифры в строке .Version = cdrVersion11
Rem Макрос можно зацепить на горячии клавиши Ctr+s и посадить на стандартную иконку сохранения
Rem (с)Stepanov Alexandr
Rem 3 февраля 2005 года.
'//////////////////////////////////////////////
Sub temp()
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = New StructSaveAsOptions
With SaveOptions
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = True
.ThumbnailSize = cdr10KColorThumbnail
.Version = cdrVersion11
End With
Dim n As String
n = ActiveDocument.FullFileName
If n = "" Then ActiveDocument.Save
ActiveDocument.SaveAs n, SaveOptions
Rem ActiveDocument.Close
End Sub