Адам упоминает команду 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
