Еще имеется программная возможность назначения горячих клавиш с помощью макроса
(подробнее см. http://wordexpert.ru/forum/viewtopic.php?id=2219)
Макрокоманда, назначающая «горячие клавиши», имеет следующий принципиальный вид:
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(<Сочетание_клавиш>), _
KeyCategory:=wdKeyCategoryCommand, Command:="<Наименование_команды/макроса>"
Элемент <Сочетание_клавиш>:
wdKey<Буква/цифра>, [wdKeyControl,] [wdKeyShift,] [wdKeyAlt]
где:
- wdKey<Буква/цифра> – нажатие клавиши, соответствующей указанной букве или цифре,
- wdKeyControl – нажатие клавиши Ctrl,
- wdKeyShift – нажатие клавиши Shift,
- wdKeyAlt – нажатие клавиши Alt.
Например:
wdKeyS, wdKeyControl – сочетание клавиш Ctrl+S
wdKeyQ, wdKeyControl, wdKeyAlt – сочетание клавиш Ctrl+Alt+Q
wdKeyP, wdKeyControl, wdKeyShift, wdKeyAlt – сочетание клавиш Ctrl+Shift+Alt+P
Элемент <Наименование_команды/макроса> можно взять из окна Настройка клавиатуры (для Word 2013: Файл – Параметры – Настроить ленту – Настройка…). Например:
FileSave – команда сохранения файла
InsertPicture – вставка рисунка из графического файла и т.д.
Для описания наименования макроса используется следующая конструкция:
<Имя_шаблона.Имя_модуля.Имя_макроса>
Указанные параметры можно найти в окне редактора VBA.
Например:
Normal.NewMacros.CompletePreparationSelection – шаблон Normal.dotm, модуль (обычно в разделе Modules) NewMacros, макрос CompletePreparationSelection.
Пример модуля, назначающего «горячие клавиши»:
Sub HotKeys()
'
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyQ, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryCommand, Command:="DocEncryption"
' Команде DocEncryption назначается сочетание клавиш Ctrl+Alt+Q
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyS, wdKeyControl), KeyCategory:= _
wdKeyCategoryCommand, Command:="FileSave"
' Команде FileSave назначается сочетание клавиш Ctrl+S
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyP, wdKeyControl, wdKeyShift, _
wdKeyAlt), KeyCategory:=wdKeyCategoryCommand, Command:="Normal.NewMacros.CompletePreparationSelection"
' Макросу Normal.NewMacros.CompletePreparationSelection назначается сочетание клавиш Ctrl+Shift+Alt+P:
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.