ExcelWord为宏添加自定义快捷键

一、Word为宏添加自定义快捷键（Excel操作一样）

1、打开Word文档选项，在“自定义功能区”的“从下列位置选择命令”中选择宏，点击“新建选项卡”按钮，建好后选中其中的组，左边选择宏，点击“添加”按钮，如下：

2、点击键盘快捷方式“自定义”按钮，左边选择宏，右边选择已经存在的宏，设置好快捷键，点击“指定”按钮，如下：

说明：将更改保存在Normal.dotm会在所有Word文档生效。

提示：Excel的宏快捷键在宏的选项中，如下图：

二、录制宏时设置快捷键

1、Word或Excel中录制宏→选择键盘

2、设置好快捷键并指定

提示：将更改保存在Normal.dotm中，则所有Word文档都可使用。

三、Excel中为VBA宏函数指定快捷键

Sub 为vba函数指定快捷键()

    Application.OnKey "+^{RIGHT}", "myProc"    '设置 Ctrl+Shift+右箭头键为"myProc"过程的快捷键

End Sub

Sub myProc()

    MsgBox "hello"

End Sub

说明：此代码需要放到模块中。

四、Word中为vba宏函数指定快捷键

Sub word中vba宏绑定自定义函数过程()

    Dim bindKey As KeyBinding

    For Each bindKey In KeyBindings

        Debug.Print bindKey.Command

        bindKey.Clear    '清除所有自定义快捷键

    Next

    KeyBindings.Add KeyCategory:=wdKeyCategoryMacro, Command:="showMsg", KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS)

End Sub

Sub showMsg()

    MsgBox "hello"

End Sub

说明：此代码需要放到模块中。

可交流分享经验，联系qq：329876601