Question

我目前在业务中使用单词模板来帮助创建客户邮件。我们的模板上有一个现有的用户表单编码，可以在信件上插入正确的寄信人地址，电话号码，法人实体等。最近，我们遇到了一部分用户的问题（似乎是随机的，我们已经通过详尽的测试，无法找到押韵/原因），这些用户在启用宏时没有收到选择任何所需项目的弹出窗口。在测试中，我们发现用户已经能够进入vbasic并手动运行用户窗体。我想建立一个热键选项来初始化用户表单，请帮忙！当前，ThisDocument对象具有以下代码来运行用户窗体：

Private Sub Document_New()

Channel_Select.Show

End Sub

根据我在网上可以找到的信息，可以使用excel中的OnKey Command之类的东西，但是我找不到Word版本。有人有经验吗？

Answer 1

我在有关键绑定的线程上找到了答案，但是我无法重新引用该线程。我在文档中添加了2个新模块，module1具有：

显式选项

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将启动文档上的用户窗体

Word用户窗体热键

1 个答案: