powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / KeyBind Word/VBA
2 сообщений из 2, страница 1 из 1
KeyBind Word/VBA
    #32812675
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток....
Очень долгое время не могу справиться с данной проблеммой:

Задача: Есть документ с которого заливаются некоторый макросы и настройки в шаблон. Помимо всего нужно залить некоторые раскладки клавишь на макросы которые вливаются (все выполняется програмно). После того как все было залито в шаблон, открываем новый документ или уже ранее созданный, и в нем должны работать все функции которые мы залили в шаблон - то есть настройки, макросы и сочетания клавиш на залитые макросы...

Проблемма: Все кроме горячих клавиш работает, макросы запускаются только через менюшку которую тоже заливается в шаблон.

Горячие клавиши устанавливаются с помощью макроса который устанавливает все настройки и копирует макросы в шаблон. Вот часть кода который устанавливает сочетания клавиш:

CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey1, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Obshiy_zagalovok"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey2, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Data_1"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey3, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Data_2"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey4, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Mesto_raboti"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey5, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Professiya_D"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey6, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Byllitirovanniy_spisok"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey7, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Byllitirovanniy_spisok_2"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey8, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Obichniy"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey9, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Obichniy2"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyB, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="Specialnaya_vstavka"


Сочетания клавиш работают только в документе с которого идет установка.... Т.е. в документе в котором есть данные макросы к котором присвоены горячие клавиши.

Вопрос: из за чего не работают горячие клавиши в документах после того как я их прошил в шаблон (к стати если зайти сервис - настройки - клавиатура - макросы, то там видны сочетания клавиш которые я установил). Второй вариант который я пробовал, это в каждый новый или в каждый открытый документ заливать макросы к которыйм назначины сочетания клавиш, но столкнулся с проблеммой как залить эти макросы в документ который создается при запуску ворда, так как ни одна команда auto не срабатывает....
AutoExec - не подходит так как документ еще не создан и вылетает ошибка
AutoNew - тоже почему-то не работает при запуске ворда... в документ который создается макросы при данном условии не заливаются.
AutoOpen - Только если мы открываем документ с которым нужно работать.

Также интересует следующий момент: К примеру макрос называется a_Data1, с помощью вышеуказанного макроса мы залили в шаблон сочетание клавишь на него - к примеру ctr+2. Далее создаем новый документ, и идем сервис-настройки-клавиатура-макросы и выбираем normal.dot Выделяем a_Data1 и видим там действительно стоит ctr+2, но при нажатии этих клавишь макрос не срабатывает (хотя через менюшку он запускается) Далее заливаем сей макрос в документ с которым работаем, и опять идем сервис-настройки-клавиатура и выбираем Документ1 и там появляется projekt.a_Data1 и стоит сочетание клавишь ctr+2 и теперь макрос работает при нажатии данных клавишь. Так вот вопрос:

CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey2, wdKeyControl), KeyCategory:= _
wdKeyCategoryMacro, Command:="a_Data_1"

Этот макрос должен установить сочетание клавишь в шаблон, но данное сочетание клавишь не запускает макрос находящийся в шаблоне... Как такое может быть?

Заранее спасибо. С уважением Денис Новиков
...
Рейтинг: 0 / 0
KeyBind Word/VBA
    #32816173
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
up
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / KeyBind Word/VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]