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

tohaa

Участник
Топикстартер
Сообщения
229
Реакции
8
Подскажите как в X8 диалог Save AS при сохранении файла.

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

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

lev

Модератор
20 лет на форуме
Сообщения
2 151
Реакции
2 074
Имя файла не пропустили?
ActiveDocument.SaveAs "C:\Image9.cdr", opt
 

tohaa

Участник
Топикстартер
Сообщения
229
Реакции
8
Имя файла не пропустили?
ActiveDocument.SaveAs "C:\Image9.cdr", opt
Имя файла хочу вводить самостоятельно. Нужно только открыть диалог сохранения. Вот этот.
1701117305255.png
 

tohaa

Участник
Топикстартер
Сообщения
229
Реакции
8
Имя файла не пропустили?
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_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 294
Реакции
10 865
  • Спасибо
Реакции: tohaa