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