Word Userform Hotkey - PullRequest
Новая
       32

Word Userform Hotkey

0 голосов
/ 16 января 2019

В настоящее время я использую шаблоны слов в своем бизнесе, чтобы помочь в создании почтовых рассылок для клиентов. В наших шаблонах есть кодирование пользовательской формы, которое вставляет в письмо правильный обратный адрес, номер телефона, юридическое лицо и т. Д. В последнее время у нас были проблемы с подмножеством пользователей (на первый взгляд случайных, мы прошли всестороннее тестирование и не можем найти рифму / причину), которые не получают всплывающее окно для выбора элементов, которые им нужны, когда они включают макросы. В ходе тестирования мы обнаружили, что пользователи смогли войти в vbasic и запустить пользовательскую форму вручную. Я хотел бы добавить опцию горячих клавиш для инициализации пользовательской формы, пожалуйста, помогите! В настоящее время объект ThisDocument имеет следующий код для запуска пользовательской формы: 

Private Sub Document_New()

Channel_Select.Show

End Sub

Из того, что я смог найти в Интернете, можно использовать что-то вроде OnKey Command из excel, но я не могу найти версию Word. У кого-нибудь есть опыт в этом?

1 Ответ

0 голосов
/ 16 января 2019

Я нашел ответ в теме о связывании клавиш, но не могу перефразировать эту тему. Я добавил 2 новых модуля в свой документ, модуль1 имеет:

Параметр Явный 

Sub AddKeyBinding()
    With Application
         ' \\ Do customization in THIS document
        .CustomizationContext = ThisDocument

         ' \\ Add keybinding to this document Shorcut: Alt+r
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyR), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="TestKeybinding"

End With
End Sub

Модуль 2 

Option Explicit

 ' \\ Test sub for keybinding
Sub TestKeybinding()
    Channel_Select.Show
End Sub

Запустите макрос AddKeyBinding, затем alt + r запустит пользовательскую форму в документе

...