Господа, бодрый день!
Вообще, конечно мне странно, что в меню нет пункта "Сохранить как копию". Хотя… много лет он и нужен не был. Однако вот понадобился и, о чудо, он встроен в ВБА, но работает не так, как ожидается: в Адобовских продуктах, как вы знаете, "Сохранить как копию" сохраняет файл в его текущем состоянии с требуемым именем и забывает о нем, оставляя открытым текущий файл со старым названием.
В кореле почему то открытым становится новый файл. Строка така:
ActiveDocument.SaveAsCopy (ActiveDocument.FilePath & Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 4) & "_nulevoy.cdr")
Может что-то не то делаю?
Вообще, конечно мне странно, что в меню нет пункта "Сохранить как копию". Хотя… много лет он и нужен не был. Однако вот понадобился и, о чудо, он встроен в ВБА, но работает не так, как ожидается: в Адобовских продуктах, как вы знаете, "Сохранить как копию" сохраняет файл в его текущем состоянии с требуемым именем и забывает о нем, оставляя открытым текущий файл со старым названием.
В кореле почему то открытым становится новый файл. Строка така:
ActiveDocument.SaveAsCopy (ActiveDocument.FilePath & Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 4) & "_nulevoy.cdr")
Может что-то не то делаю?