有的时候需要使用VBA代码来控制Word的工具栏上的某些功能,比如下图红色的区域内的很多功能:
百度,得到的解决方式大多都是使用ActiveDocument.CommandBars.Item(X).Controls(X).Execute
的方式来调用。那么现在关键问题来了,如何确定我需要的功能,位于哪个CommandBars?是第几号Controls?
假设我现在需要使用VBA代码调用这个功能:
如何确定我需要的ActiveDocument.CommandBars.Item(X).Controls(X).Execute
这两个X
呢?
这里采取了一个笨办法,就是:遍历。
VBA代码如下(由于输出内容太多,VBA的直接窗口显示不完全,就直接写入txt文档了):
Sub Macro1()
Open "C:\1.txt" For Output As #1 '打开一个txt文件准备写入
For Each cmd In ActiveDocument.CommandBars '遍历所有的CommandBar对象
Debug.Print cmd.Name & vbTab & cmd.Index
Print #1, "CommandBars======" & cmd.Name & vbTab & cmd.Index '写入文件
For Each con In cmd.Controls '遍历所有的Control对象
Debug.Print con.Caption & vbTab & con.Index
Print #1, con.Caption & vbTab & con.Index '写入文件
Next
Debug.Print vbNewLine
Print #1, vbNewLine '写入文件
Next
Close #1 '关闭文件
End Sub
文件内容过长,此略过。
这里需要注意的就是,遍历出来的结果,和我们日常使用的和肉眼所见的Word IDE上的控件不是对应的,所以就要我们去这个长列表中找到我们需要的内容。
根据日常使用经验和名称,我们尝试搜索关键字“段落”。然后你就会发现,整个列表有多处命中,这里我选择这个:
CommandBars======Font Paragraph | 105 |
---|---|
剪切??(&T) | 1 |
复制??(&C) | 2 |
粘贴??(&P) | 3 |
汉字重选(&V) | 4 |
字体??(&F)... | 5 |
段落??(&P)... | 6 |
105 和6,姑且一试
Sub t()
ActiveDocument.CommandBars.Item(105).Controls(6).Execute
End Sub
调用成功。
网友评论