Dim itm1 As RibbonMenu.RibbonItem
Dim itm2 As RibbonMenu.RibbonItem
itm1 = RibbonTabs("Common").Groups("ClipBoard").Items("Paste")
itm2 = RibbonTabs("Print").Groups("QuickSetting").Items("OnlySelected")

如果要遍历容器中的所有控件，只能使用RibbonMenu.RibbonItem类型的变量，例如：

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("Table").Groups("Table").Items
    itm.Enabled = False
Next

如果要遍历特定类型的控件，可以用Typeof 判断控件类型，例如：

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("Table").Groups("Column").Items
    If Typeof itm Is RibbonMenu.Button Then
        itm.Enabled = False
    End If
Next

有关派生和判断类型的知识，在窗口设计的遍历控件一节有详细的介绍，大家可以温习一下。