mAnAger, лови макросег. Считай, мой первый проект для внешнего использования. С утра начал С учить, в одном окне MSDN, в другом MVS, в третьем учебник по С, всё на английском, так что это так, развлеченьице на Бейсике:
Sub Manager()
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = False
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.Version = cdrVersion13
End With
ActiveDocument.SaveAs ActiveDocument.FullFileName, SaveOptions
End Sub
Нужную версию сам прикрутишь, там видно, куда.