Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=312557&view=findpost&p=2688645 Sun, 05 Sep 2010 10:33:05 +0000 Подскажите как в диалоге при сохранении файла указать папку и тип файла https://forum.sources.ru/index.php?showtopic=312557&view=findpost&p=2688645
    'диалог при сохранении файла
    With Dialogs(wdDialogFileSaveAs)
    'тип сохраняемого файла
    '0 - Документ Word
    '1 - Шаблон документа
    '2 - Обычный текст
    '3 - Обычный текст
    '4 - Обычный текст
    '5 - Обычный текст
    '6 - Текст в формате RTF
    '7 - Обычный текст
    '8 - Вэб-страница
    '9 - Вэб-страница в одном файле
    '10 - Вэб-страница с фильтром
    '11 - XML-документ
    '12 - Word 97-2003 & 6.0/95 - RTF
    '13 - Word 97-2003 & 6.0/95 - RTF
    '14 - Works 6.0 & 7.0
           .Format = 0 '0 - Документ Word, можно заремарчить или удалить данную строку, что означает .Format = 0
           .Name = "" 'имя сохраняемого файла ""
           .Name = "C:\" 'место сораняемого файла, имя сохраняемого файла ""
           .Name = "C:\Имя" 'место сораняемого файла, имя сохраняемого файла "Имя"
           .Show 'показать диалог сохранения файла, указываем эту строчку последней
                  
    End With
]]> Ципихович Эндрю VB for Application https://forum.sources.ru/index.php?showtopic=312557&view=findpost&p=2688578 Sun, 05 Sep 2010 09:33:24 +0000 Подскажите как в диалоге при сохранении файла указать папку и тип файла https://forum.sources.ru/index.php?showtopic=312557&view=findpost&p=2688578 Цитата Ципихович Эндрю @
          .Name = "" ' имя файла

Для папки просто так:
          .Name = "C:\" ' имя файла


Добавлено
Для типа файла:
          .Format = 1 ' 2, 3, 4, ...
]]> coder VB for Application https://forum.sources.ru/index.php?showtopic=312557&view=findpost&p=2688535 Sun, 05 Sep 2010 08:58:38 +0000 Подскажите как в диалоге при сохранении файла указать папку и тип файла https://forum.sources.ru/index.php?showtopic=312557&view=findpost&p=2688535
    'диалог при сохранении файла
    With Dialogs(wdDialogFileSaveAs)
           .Name = "" ' имя файла
           .Show 'показать
           ???'папка
           ???'тип файла
     End With
]]> Ципихович Эндрю VB for Application