Свойство Application.KeyBindings (Word)
Возвращает коллекцию KeyBindings , представляющую настраиваемые назначения ключей, включая код ключа, категорию ключа и команду.
Синтаксис
выражение. KeyBindings
выражение: переменная, представляющая объект Application.
Пример
В этом примере сочетание клавиш CTRL+ALT+W назначается команде FileClose . Эта настройка клавиатуры сохраняется в шаблоне Обычный.
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, _
wdKeyW), KeyCategory:=wdKeyCategoryCommand, _
Command:="FileClose"
В этом примере вставляется имя команды и строка сочетания клавиш для каждого элемента в коллекции KeyBindings.
Dim kbLoop As KeyBinding
CustomizationContext = NormalTemplate
For Each kbLoop In KeyBindings
Selection.InsertAfter kbLoop.Command & vbTab _
& kbLoop.KeyString & vbCr
Selection.Collapse Direction:=wdCollapseEnd
Next kbLoop
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.