[CDR 2017-2022] Версия при сохранении

[_MBK_]

нет, файл готовый и пересохраненный уже не один раз

Значит от версии
Окно выскакивает в том случае, если файла с таким именем и путем на диске нет. Что в окне кстати? Она ж по идее путь и имя должна показывать, куда сохраняет?

 

[Андерсон]

Значит от версии
Окно выскакивает в том случае, если файла с таким именем и путем на диске нет. Что в окне кстати? Она ж по идее путь и имя должна показывать, куда сохраняет?

открывает окно сразу на файл исходник (как по умолчанию при выборе SaveAs вручную).

Я тоже думаю - от версий зависит.

 

[_MBK_]

открывает окно сразу на файл исходник (как по умолчанию при выборе SaveAs вручную).

А попробуйте все таки записать сохранение файла в макрос - как у вас будет выглядеть?
И будет ли окно сохранения выкидывать при проигрывании записанного или нет?

 

[Элвин]

Себе, пока тестировал 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

 

[_MBK_]

почти один-в-один то же самое

Не совсем
Видимо вот где собака порылась

Path = ActiveDocument.FilePath
Name = ActiveDocument.FileName

 

[nagris]

 

[tohaa]

Вот это хорошо работает.

Sub save13()
Optimization = True
    EventsEnabled = False
Dim Path As String
    Dim Name As String
    Path = ActiveDocument.FilePath
    Name = ActiveDocument.FileName
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = True
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .Version = cdrVersion13
        .KeepAppearance = True
      End With
    ActiveDocument.SaveAs Path + "" + Name, SaveOptions
EventsEnabled = True
    Optimization = False
    ActiveWindow.Refresh
    Application.Refresh
End Sub

 

[_MBK_]

.Version = cdrVersion13

12 же

Path + "" + Name

Это еще зачем?

 

[tohaa]

12 же

Это еще зачем?

чтоб я помнил. артефакт.

Когда-то давно подгонял макрос так, чтобы если файл новый - запускалось окно сохранить как. если уже сохраненный - понижалась версия и файл перезаписывался.

 

[Элвин]

Когда-то давно подгонял макрос так, чтобы если файл новый - запускалось окно сохранить как.

Оно и так запустится.

 

[lev]

Programs & Macros for CorelDRAW Graphics Suite: ReSaveCDR

macros for corelDRAW graphics suite.

www.corelvba.com

wOxxOm Save Old Version – macromonster.com

macromonster.com

PREPRESS-INFO.COM — Íàøè ðàáîòû - ReSaveForLekar äëÿ CorelDraw

ïîëèãðàôè÷åñêèé ïîðòàë PREPRESS-INFO.COM

www.prepress-info.com

и т.д. и т.п.

 

[tohaa]

У меня появился вопрос по теме сохранения. Как сделать проверку, что файл не открыт на другом компе в сети? Сейчас при попытке сохранения макросом открытого где-то еще файла нет никакой индикации. Мало того, эта попытка приводит к крашу корела. Можно ли как-то встроить проверку в макрос?

 

[Элвин]

У меня появился вопрос по теме сохранения. Как сделать проверку, что файл не открыт на другом компе в сети?

Вот тут предлагается готовая функция, проверил, открыв кореловский файл локально - работает. По сети по идее тоже должна.