[CDR X5-X8] Открыть диалог Save as в X8

[tohaa]

Подскажите как в X8 диалог Save AS при сохранении файла.

В более старших версиях достаточно
ActiveDocument.SaveAs ,SaveOptions

а в x8 выдает ошибку.

 

[lev]

Имя файла не пропустили?
ActiveDocument.SaveAs "C:\Image9.cdr", opt

 

[tohaa]

Имя файла не пропустили?
ActiveDocument.SaveAs "C:\Image9.cdr", opt

Имя файла хочу вводить самостоятельно. Нужно только открыть диалог сохранения. Вот этот.

 

[tohaa]

Имя файла не пропустили?
ActiveDocument.SaveAs "C:\Image9.cdr", opt

If a3.Value = True Then
    
        strFileName = Path + Name & "_rezka.cdr"
        strFileExists = Dir(strFileName)

            If strFileExists = "" Then
                ActiveDocument.SaveAs Path + Name & "_rez.cdr", SaveOptions
            Else
                MsgBox "Файл с таким именем уже есть в папке.", vbExclamation
                ActiveDocument.SaveAs , SaveOptions    --- вот в этот момент нужен диалог Save AS.
                
            End If
    
    End If

 

[_MBK_]

Имя файла хочу вводить самостоятельно. Нужно только открыть диалог сохранения. Вот этот.
Посмотреть вложение 162353

Тогда вам надо просто нужный пункт меню вызывать (ЕМНИС через Invoke)

 

[tohaa]

Тогда вам надо просто нужный пункт меню вызывать (ЕМНИС через Invoke)

Кстати про инвок я забыл ! Точно буду ковыряться в файле искать.