如何自动引用Microsoft Office 1x.x Object Library 定义变量

t小宝

Office工具栏这些对象不需要CreateObject，像下面这样用：
    Dim iBar   As Object
    Dim iButton  As Object
    Dim iCombo As Object
    '引用已有的工具栏
    set iBar=CommandBars("工具栏1")
    '创建并引用新的工具栏
    Set iBar = CommandBars.Add("工具栏2")
    '创建并引用一个新的按钮
    Set iButton = iBar.Controls.Add