Word VBA 【控制CommandBars Controls】2020-09-27

  有的时候需要使用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

  调用成功。