[CDR X4 и ранее] Экспорт файла с предустановкой параметров?

[Darsh]

Подскажите. Если нужно вызвать диалоговое окно экспорта в формат AI, с установленным чекбоксом "Только выделенное". Как это можно сделать. Я давно не писал на VBA под Corel. Получился вот такой код, и уверен он неправильный (рабочий, но мне кажется все делается гораздо проще):

Sub ExportSel()

Dim ex As ExportFilter
Dim pth As String

pth = ActiveDocument.FullFileName
pth = Left(pth, Len(pth) - 3) & "ai"

Set ex = ActiveDocument.ExportEx(pth, cdrAI, cdrSelection)
With ex
If .HasDialog Then
.ShowDialog
End If
.Finish
End With

End Sub

Этот код минует диалоговое окно, сохраняет в ту же папку где лежит .CDR и только выделенное.

 

[_MBK_]

А что не так то? И куда проще?

 

[lev]

Можно не вызывать диалог и воткнуть всё в одну строку с двойным вызовом имени файла, вот только зачем?

Sub ExportSel()
  ActiveDocument.ExportEx(Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "ai", cdrAI, cdrSelection).Finish
End Sub

+ будет сбоить на несохранённом файле из-за отсутствия проверки