Себе, пока тестировал 18-й (так на него и не перешёл), накидывал макрос, вешал на него ctrl+s, всё работало. Но вообще-то там внутри почти один-в-один то же самое, что и в примере тов. MBK, так что не знаю, чем поможет. Отличие только, по сути, в проверке, а надо ли сохранять, так как у меня привычка судорожно жать ctrl+S после любого движения
SaveAsOld.gms
Код:
Option Explicit
Sub start()
Dim Path$, Name$
Dim SaveOptions As StructSaveAsOptions
Path = ActiveDocument.FilePath
Name = ActiveDocument.FileName
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = False
.Filter = cdrCDR
.IncludeCMXData = False
.KeepAppearance = False
.Overwrite = True
.Range = cdrAllPages
.EmbedICCProfile = False
.Version = cdrVersion16
End With
If ActiveDocument.Dirty Then ActiveDocument.SaveAs Path + Name, SaveOptions
End Sub