放一个功能组，放一个label菜单，然后afterOpenProject事件赋值
RibbonTabs("Common").Groups("Edit").Items("Find").text = "用户:" & User.Name & " 当前时间:" & Date.today()
加好友 
发短信
Post By：2018/1/19 14:46:00 [只看该作者]
