For Each a1 As RibbonMenu.Tab In RibbonTabs For Each a2 As RibbonMenu.group In a1.Groups For Each a3 As RibbonMenu.RibbonItem In a2.Items If Typeof a3 Is RibbonMenu.Button Output.Show(a3.name) End If Next NextNext
这就是标准按钮吧。