美文网首页程序员
Word VBA 【控制CommandBars Controls

Word VBA 【控制CommandBars Controls

作者: 平知 | 来源:发表于2020-09-27 21:39 被阅读0次



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

      调用成功。

    相关文章

      网友评论

        本文标题:Word VBA 【控制CommandBars Controls

        本文链接:https://www.haomeiwen.com/subject/kioluktx.html