Dim itm As RibbonMenu.RibbonItemFor Each itm In RibbonTabs("QAT").Items
If Typeof itm Is RibbonMenu.Button Then output.show(itm.name)
End IfNext
加好友 
发短信
Post By：2012/5/7 7:08:00 [只看该作者]
