放一个控件,然后在SystemIdle写代码
RibbonTabs("Common").Groups("ClipBoard").Items("Paste").Text = "今天是 " & format(Date.now, "yyyy年MM月dd日 dddd")