能够修改Word命令的VBA代码
发布时间:2023-12-13 15:33:36
在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
该过程为公用部分
简析:在EXCEL中,我们只能通过FindControls(ID)的方法为原有程序修改命令指定宏过程;在WORD中,我们也可能通过该方法进行;但如果我们采取第二部分的话,更为简单,这就是所谓的修改WORD命令.当然一个名为MySub的过程可以省略,直接写在FilePrint宏中。以下为实用修改WORD命令的一个例子(该例子放在自定义模板中)
Sub FilePrint()’修改WORD命令(文件/打印:CTRL+P)
Dim Pc As Integer, Var As Integer
With Application.Dialogs(wdDialogFilePrint)
If .Show = -1 Then
Pc = .NumCopies ‘取得打印份数
Var = Me.Variables("PrintPageCount").Value ‘延续以前的打印份数
Me.Variables("PrintPageCount").Value = Pc + Var ‘至今共打印的张数
Me.Save ‘保存
MsgBox "目前累计打印份数为" & Me.Variables("PrintPageCount").Value
End If
End With
End Sub
Sub FilePrintDefault’修改WORD命令(常用工具栏/打印活动文档)
ActiveDocument.PrintOut ‘默认打印
Me.Variables("PrintPageCount").Value = _
Me.Variables("PrintPageCount").Value + 1
Me.Save ‘保存
MsgBox "目前累计打印份数为" & Me.Variables("PrintPageCount").Value
End Sub
Private Sub Document_Open()
On Error Resume Next
Me.Variables.Add Name:="PrintPageCount" ‘预定一个文档变量
End Sub
如果快速得到WORD中对应命令的命令名称,有多种方法,一是使宏对话框中的WORD命令,我们可以知道所有WORD命令,还可以使用宏对话框中的”ListCommands”命令,将所有WORD命令自动列表;还可以使用自定义/命令/所有命令中获得;也可以通过插入域/MacroButton域中的宏名列表中获得;最方便的是使用CTRL+ALT+数字小键盘上的”+”号,当光标变成”中国结”时,点向所需按钮命令,即出现一个自定义对话框,在这个对话框中所显示的命令,就是你要的命令名称。
猜你喜欢
- Word如何拆分表格呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Word如何拆分表格的回答,希望能够帮助大家了解。1、首先来说下横
- 怎么解决笔记本触摸板没有反应怎么办呢?别着急,小编教你详细的解决方法,帮你解决Win10触摸板失灵的问题,希望对你有所帮助。Win10触摸板
- 在用户使用win10系统过程中,可能需要视频办公,但是连接上耳机却没有任何声音。这是怎么回事呢?其实是因为声卡驱动不完善或者没有设置前置面板
- 如果你有过痛苦的windows10系统还原经历或者重装噩梦,不用太担心,看完我们的教程就能帮助到你。如果你还担心还原后的系统问题,只要操作正
- 王海是某某公司的销售部经理助理,现在要统计分析当年各业务员的销售情况,以便了解业务员的销售能力,调整他们的业务范围和职位。现在,王海将这一年
- 第1步,打开Word2013文档窗口,选中需要进行拼写和语法检查的文本。然后切换到“审阅”功能区,在“语言”分组中单击“语言”按钮,并在打开
- WPS文字田字格的制作教程:一、绘制外框1、田字格的外框是一个正方形,我们需要使用绘图工具中的矩形来制作。绘图工具栏默认是开启的,如果被关闭
- 1.打开WPS文档然后输入任意一串英文字母,这个时候我们会发现英文下面有红色的波浪线,不要紧,这个时候点击左上角的“WPS文字”旁边的小三角
- word文档打不开多半是因为感染性病毒感染电脑中所有exe文件所致,你可以尝试用下面的方法解决word文档打不开的问题。"word
- 中国的人口发展形势非常严峻,为此国家统计局每10年进行一次全国人口普查,以掌握全国人口的增长速度及规模。按照下列要求完成对第五次、第六次人口
- 每当月末或财年结束需要各种汇总报表时,您是否曾为制作复杂的表格烦恼过?Office 为您提供了各种丰富的表格功能,再加上中文 Word 特有
- 微软官方每次更新系统时,都会推出很多新的补丁,有的用户从来没更新过,而有的用户想更新却不知道怎么去查看搜索这些补丁。今天就给大家带来Win1
- word本身没有截图功能,截图需要电脑其他软件支持按照操作上从易到难的顺序,推荐五种截屏方式:第一种:Ctrl +PrScrn 使用这个组合
- 用户在日常创建Word文档的时候,为了保护内容,会添加密码,这样其他用户就无法打开文档。但很多时候自己设置的密码却忘记,自己也无法打开文档。
- 苹果在昨日发布了 iOS 14 正式版,不少用户已经升级开始体验。iOS 14 不仅为 iPhone 带来了全新的功能和翻译应用,也进一步加
- 固定的摆放桌面图标看久了是否也会腻,没关系今天教大家随意的摆放桌面图标。在win10系统中进行如下的操作,可以放图标摆放更随意,拒绝按部就班
- 对于这个问题,有下面几种解决方法:方法一:可能是由于WPS版本问题,下载最新版本的WPS 即可!方法二:可能是WPS的设置出了问题。解决方法
- 很多用户都知道连接网络出现感叹号,或者连接不上网络如何去解决,但是几乎很少遇见连接上网络,还不能用网的情况,最近就有一位用户明明连接上网络了
- 1、我们把鼠标切换到文档左上角的“文件”按钮,在弹出的下拉菜单中选择“Word选项”命令。 2、在跳出的“Word
- 血氧全称为血氧饱和度,得了新型冠状病毒感染测血氧饱和度能有效监测患者实际病情。如果测出血氧饱和度处于正常范围之间,提示患者为轻、中症,一般无