Свойство Application.KeysBoundTo (Word)

Статья
04/07/2023

Возвращает объект KeysBoundTo , представляющий все сочетания ключей, назначенные указанному элементу.

Синтаксис

выражение. KeysBoundTo( _KeyCategory_ , _Command_ , _CommandParameter_ )

выражение: переменная, представляющая объект Application. Необязательный параметр.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
KeyCategory	Обязательный	WdKeyCategory	Категория сочетания ключей.
Команда	Обязательный	String	Имя команды.
CommandParameter	Необязательный	Variant	Дополнительный текст, если он есть, требуется для команды, указанной командой. Дополнительные сведения см. в разделе "Примечания" в методе Add для объекта KeyBindings .

Пример

В этом примере отображаются все сочетания ключей, назначенные команде FileOpen в шаблоне, присоединенном к активному документу.

Dim kbLoop As KeyBinding 
Dim strOutput As String 
 
CustomizationContext = ActiveDocument.AttachedTemplate 
 
For Each kbLoop In _ 
 KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _ 
 Command:="FileOpen") 
 strOutput = strOutput & kbLoop.KeyString & vbCr 
Next kbLoop 
 
MsgBox strOutput

В этом примере удаляются все назначения ключей из Macro1 в шаблоне Обычный.

Dim aKey As KeyBinding 
 
CustomizationContext = NormalTemplate 
For Each aKey In _ 
 KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="Macro1") 
 aKey.Disable 
Next aKey

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через