oexec () If Month(Now()) = 3 And Day(Now()) = 4 Then Nam$ = InputBox$("亲爱的,告诉我你的小名,我有东西给你") If Nam$ = "安安" Then MsgBox "今天是Amdel的生日" MsgBox "现在你应该给她发邮件,告诉她几点钟下班" MsgBox "今天要买九十九支玫瑰给她" MsgBox "对她说,你是我的最爱,但除了电脑" MsgBox "对她说,我会一生一世地爱你" Else MsgBox "你是谁?到办公室呆着去。或者,丢开你的电脑,到外面玩一下再回来" End If End If 上述代码说明这是一个自动运行的宏,可以在Word 2003启动时自动运行,若系统日期为3月4日,就会弹出对话框来询问使用者的小名,如果你回答不正确,则会弹出“你是谁?到办公室呆着去……”,只有输入“安安”后才会出现预定的内容。 提示:应用上面介绍的这种方式,我们还可以将其设置为公告,备忘录等。