Как сохранять файл всегда в версии 11 из корела версии выше

[saloed]

Как сохранять файл всегда в версии 11 из корела версии выше?

 

[lev]

Написать макрос, посадить на шорткат (можно заменить существующий) и сохранять им. Вариант:

Sub Shift_Ctrl_S()
  Dim Response As String
  Dim Response2 As VbMsgBoxResult
  Dim opt As New StructSaveAsOptions

  Response = ActiveDocument.FullFileName
  'Response = InputBox("Enter File Name to Save", "SaveAs")
  'If Response = "" Then Exit Sub

  If Dir(Response) <> "" Then 'Test to see if the file exists
  Response2 = MsgBox("Overwrite Existing File?", vbYesNo, "SaveAs")
  If Response2 = vbNo Then Exit Sub
  End If

  opt.Filter = cdrCDR
  opt.Overwrite = True
  opt.Range = cdrAllPages
  opt.Version = cdrVersion11
  ActiveDocument.SaveAs Response, opt
End Sub

Можно посадить макрос на событие GlobalMacroStorage_QueryDocumentSave, тогда будут перехватываться и нажатия кнопок сохранения в интерфейсе и не надо будет сочинять шорткат, но будет всплывать окошко типа "файл will be saved in version ххх file format." где надо будет жать Cancel и будет перехватываться и SaveAs, т.е. будет лишнее сохранение перед диалогом.

 

[saloed]

никогда не делал подобного, где это выставлять всё?

 

[saloed]

@lev, разобрался, спасибо!