[CDR 2017-2021] Макрос не открывает файл

[mnemonix]

Использую стандартный класс CorelScriptTool, отрабатывает без ошибок, но файл не открывает. В чём может быть причина?

Sub OOOpen()

SETCURRFOLDER = "c:\"
FileName$ = CorelScriptTools.GetFileBox("All Files|*.*", 0)

End Sub

 

[mnemonix]

Так, не дочитал...
"Сам по себе оператор GetFileBox не открывает и не сохраняет файл; он возвращает только строку, соответствующую выбранному файлу."

Тогда вопрос, как отрыть файл?

 

[izrukvruki]

Открывает файл так
OpenDocument "m:\design_new\VBA\iconki.cdr"

Сохраняет текущий
Dim opt As New StructSaveAsOptions
opt.Version = cdrVersion13
opt.Filter = cdrCDR
opt.Range = cdrAllPages
activedocument.SaveAs "m:\design_new\VBA\iconki.cdr", opt

 

[_MBK_]

Тогда вопрос, как отрыть файл?

Открыть документ в кореле или открыть текстовый/бинарный файл на чтение запись?
Документ - выше
А просто для чтения
Open myFile For Input As #1

 

[mnemonix]

Открывает файл так
OpenDocument "m:\design_new\VBA\iconki.cdr"

Да, понятно, но это конкретный файл, нужно открыть окно диалога выбора файла и открыть любой на выбор.

 

[mnemonix]

Всё, нашёл решение))

Sub OOOpen()

FileName$ = CorelScriptTools.GetFileBox("All Files|*.*", 0)
OpenDocument FileName$

End Sub