Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 01:22

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: Архивное сохранение файлов
СообщениеДобавлено: 05 дек 2014, 11:28 
Не в сети
Новичок

Зарегистрирован: 08 дек 2014, 13:45
Сообщений: 21
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Нужно чтобы файлы из определенной папки если они изменяются и сохраняются также сохраняли резервную копию с датой, автором и т.д. Файлов много, есть стенсил который ко всем им привязан. Хотелось бы чтобы чтобы макрос был прописан именно в стенсиле. Как создавать архив понятно. Непонятно к какому именно событию привязать архивирование, если к закрытию например то архивирование будет происходить даже если ничего не менялось. К сохранению - не подходит, потому что стенсил мы в любом случае не изменяем во время работы с файлом.
Может быть как то можно отследить время открытия и время сохранения файла? Или как из стенсила увидеть что основной файл сохраняется, потому что например вот это:

Private Sub Document_DocumentSaved(ByVal doc As IVDocument)

написанное в стенсиле не реагирует на сохранение основного файла.

Есть какие нибудь мысли?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Архивное сохранение файлов
СообщениеДобавлено: 05 дек 2014, 13:19 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
в теме "Где записать макросы, общие для всех открытых документов?" ss87 выкладывал надстройку в сообщении #1483, не пробовал ее использовать ?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Архивное сохранение файлов
СообщениеДобавлено: 05 дек 2014, 15:39 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
надо использовать не событие документа
Код:
Private Sub Document_DocumentSaved(ByVal doc As IVDocument)
а событие приложения
Код:
Application_DocumentSaved(ByVal doc As IVDocument)
либо
Код:
Application_BeforeDocumentSave
вот и всё :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Архивное сохранение файлов
СообщениеДобавлено: 08 дек 2014, 12:51 
Не в сети
Новичок

Зарегистрирован: 08 дек 2014, 13:45
Сообщений: 21
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
что то не получается. Вот это если пишу в Thisdocument своего стенсила должно работать? или что то не то делаю
Код:
Private Sub Application_DocumentSaved(ByVal doc As IVDocument)
    MsgBox (" ")
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Архивное сохранение файлов
СообщениеДобавлено: 08 дек 2014, 13:22 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
ну нет. не дословно же так писать!
сначала объявляется в Thisdocument объект приложения:
Код:
Public WithEvents myapp As Visio.Application

потом его инициализируешь при старте стенсила. например в событии загрузки:
Код:
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
   Set myapp=Application
End Sub

теперь событие подключено и работает:
Код:
Private Sub myapp_DocumentSaved(ByVal doc As IVDocument)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Архивное сохранение файлов
СообщениеДобавлено: 08 дек 2014, 13:49 
Не в сети
Новичок

Зарегистрирован: 08 дек 2014, 13:45
Сообщений: 21
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Спасибо! Очень помогли. Я подозревал что это возможно


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB