|
Модераторы: Akina |
|
midex777 |
|
||||||||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 16.1.2017 Репутация: нет Всего: нет |
Здравствуйте!
У меня есть следующая задача: Записать следующие макрокоманды в шаблон при открытии которого: − AutoNew, при запуске которой происходит отключение всех панелей и линейки прокрутки; − AutoClose, при запуске которой происходит включение всех отключенных ранее панелей и линейки прокрутки; − Печать, при запуске которой выполняется печать; − Выход, при запуске которой происходит выход из программы Word без сохранения изменений в документе. Макросы написал в следующем виде: AutoNew:
AutoClose
Печать:
Как сделать выход не разобрался.. что-то типа:
Вопрос состоит в следующем - почему-то выходит сообщение - "invalid outside procedure" на начале любого макроса (sub AutoClose(), например) Кавычки я уже поправил.... (файл во вложении) Из текущих макросов работает только Печать... Это сообщение отредактировал(а) Akina - 16.1.2017, 21:00 Присоединённый файл ( Кол-во скачиваний: 2 ) 1111цваы.png 50,96 Kb |
||||||||
|
|||||||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
1. AutoNew
Подумай, что будет, если некоторые панели были скрыты в момент запуска макроса? Нужно читать информацию об имеющихся панелях и их статусах и сохранять её в коллекции, после чего отображаемые скрывать. Безусловно. 2. AutoClose Подумай, что будет, если некоторые панели были скрыты в момент запуска скрывающего макроса? Нужно отображать панели в соответствии с сохранёнными в коллекции сведениями. По завершении коллекцию следует очистить (но не удалять!). 3. Печать Претензий нет. 4. AutoNew Выход (закрытие открытых документов и выгрузка приложения) выполняется вызовом Application.Quit с соотв. параметрами. Не вижу смысла в создании отдельных модулей для каждого макроса... Не вижу смысла в опубликованном скриншоте. И - пользуйтесь тегом "Код". -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
midex777 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 16.1.2017 Репутация: нет Всего: нет |
Благодарю за пояснение!
Код буду вставлять в тег Код. Макрос выход значит такой:
Т.е. можно все макросы в 1 модуле прописать? Осталось понять как вызвать меню макросов при загрузке и убрать линейку и полосу прокрутки... т.е. по AutoExec, AutoNew пока так и не придумал ничего. С VB я новичёк.. Файл-шаблон(.dotm) прикладываю. Это сообщение отредактировал(а) Akina - 16.1.2017, 22:12 Присоединённый файл ( Кол-во скачиваний: 0 ) PRIKAZ_1.rar 20,97 Kb |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
Избыточное цитирование (оверквотинг) удалено.
Обещать - не значит жениться? Ещё раз поправил... Документацию не прочитал, (поэтому) совет не понял. Садись, два. Да. В исходной задаче о загрузке речь не шла. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
midex777 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 16.1.2017 Репутация: нет Всего: нет |
Прошу прощения... женат)))
С автозапуском сделал так, но работает только при запуске в VB, а вот при запуске документа не работает((:
А вот как с убрать\вернуть полосу прокрутки и линейку не нашёл... Ткните, пожалуйста. Это сообщение отредактировал(а) Akina - 16.1.2017, 23:10 |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
Сервис - Макрос - Начать запись. Убрать или вернуть полосу прокрутки (только клавишами! без мыша! так что потренируйтесь сперва). Сервис - Макрос - Остановить запись. Сервис - Макрос - Макросы. Свежесозданный макрос - Изменить. И изучайте... -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |