修改 WORD 命令 (VBA)

在WORD中,我们可以通过修改WORD命令的方法,来方便地为WORD控件指定用
户自定义的过程,完成或者转移(禁用)相应的内置方式.它的原理是利用相应宏名来置
换过程的方法.在下面的三个部分中,我们可以体会其中的相同点与不同点.

 

Sub Example() Dim i As CommandBarControl For Each i In Application.CommandBars.FindControls If i.ID = 4 Then i.OnAction = "MySub" '指定宏名 End If Next End Sub '---------------------- Sub ResetSub() Dim i As CommandBarControl For Each i In Application.CommandBars.FindControls If i.ID = 4 Then 'ID=4相当于 CTRL+P(文件/打印) i.OnAction = "" '恢复原有 ID 功能 End If Next End Sub '---------------------- Private Sub Document_Close() ResetSub '关闭文档后恢复 End Sub '---------------------- Private Sub Document_Open() Example '修改 End Sub '----------------------以上为第一部分 '----------------------以下为第二部分 Sub FilePrint() MySub End Sub '---------------------- Sub MySub() MsgBox "不能使用打印功能！" End Sub '----------------------该过程为公用部分