修改 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 ‘———————-该过程为公用部分

今日的执着，会造成明日的后悔。