Адам упоминает команду WebGoBack, и это, кажется, делает правильную вещь. В Word 2011 WebGoBack отсутствует в списке «Все команды» в «Инструменты-> Настройка клавиатуры ...», поэтому вы не можете назначить ему нажатие клавиши, но оно существует.
Умышленно ли он отсутствует в списке «Все команды» (например, потому что он ненадежен или не поддерживается) или случайно, я не могу вам сказать. Но вы можете создать макрос в Normal.dotm, который его вызывает, и назначить для него нажатие клавиши:
Sub myWebGoBack WordBasic.WebGoBack End Sub
или вы можете использовать одноразовую часть VBA для назначения команды на нажатие клавиши. например, этот код назначает команду клавише Option + стрелка влево:
Sub AssignOptionLeftArrowToWebGoBack() CustomizationContext = NormalTemplate KeyBindings.Add KeyCode:=BuildKeyCode(37, wdKeyOption), _ KeyCategory:=wdKeyCategoryCommand, _ Command:="WebGoBack" End Sub
Если вы предпочитаете использовать другую клавишу, используйте другой код клавиши - например, чтобы назначить Option + запятую (на моей клавиатуре «<», которую я могу представить как стрелку влево, находится над «,»), которую вы можете использовать:
Sub AssignOptionCommaToWebGoBack() CustomizationContext = NormalTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyComma, wdKeyOption), _ KeyCategory:=wdKeyCategoryCommand, _ Command:="WebGoBack" End Sub
Чтобы очистить все назначения в WebGoBack (чтобы Option-Left Arrow возвращалась к своей функции «слово влево», вы можете использовать
Sub ClearWebGoBackKeyBindings() Dim kb As KeyBinding CustomizationContext = NormalTemplate For Each kb In Application.KeyBindings If kb.Command = "WebGoBack" Then Debug.Print kb.KeyString kb.Clear End If Next End Sub