主题：关于历遍菜单组件的问题

我想历遍菜单中所有的标准按钮，用代码应该怎么写？帮助中只有一个功能区的，如果要历遍所有功能区呢？

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

要怎么写呢？