|
|
|
KeyBind Word/VBA
|
|||
|---|---|---|---|
|
#18+
Доброго времени суток.... Очень долгое время не могу справиться с данной проблеммой: Задача: Есть документ с которого заливаются некоторый макросы и настройки в шаблон. Помимо всего нужно залить некоторые раскладки клавишь на макросы которые вливаются (все выполняется програмно). После того как все было залито в шаблон, открываем новый документ или уже ранее созданный, и в нем должны работать все функции которые мы залили в шаблон - то есть настройки, макросы и сочетания клавиш на залитые макросы... Проблемма: Все кроме горячих клавиш работает, макросы запускаются только через менюшку которую тоже заливается в шаблон. Горячие клавиши устанавливаются с помощью макроса который устанавливает все настройки и копирует макросы в шаблон. Вот часть кода который устанавливает сочетания клавиш: 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" Этот макрос должен установить сочетание клавишь в шаблон, но данное сочетание клавишь не запускает макрос находящийся в шаблоне... Как такое может быть? Заранее спасибо. С уважением Денис Новиков ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.12.2004, 18:47:28 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=32816173&tid=2168490]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
46ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
2ms |
| others: | 201ms |
| total: | 320ms |

| 0 / 0 |
