用Word给约会提醒

用Word给约会提醒



昨天在聊天室中认识一个MM，聊得很投缘，把照片传给我看，嘿，还是美眉呢，更让人高兴的是她答应与我见面，并约好9月30日晚上8点在蚂蚁酒吧见面。不过最近太忙了，也太累了，常常丢三落四，忘东忘西。MM的约会可千万不能忘记哟，有没有什么“强心丸”呢？想起每天都要用Word，于是研究起来，果然有办法让Word来提醒我约会。

首先打开自己的电脑启动Word（以Word 2000为例），按快捷键［Alt+F8］打开“宏”对话框，在“宏名”文本框中输入“Autoexit”，然后单击［创建］。在“Visual Basic编辑器”窗口，输入以下代码：

Sub Autoexit()

If Month(Now()) = 9 And Day(Now()) 〈 30 Then

MsgBox "别忘了9月30日晚8点蚂蚁酒吧的约会哟", 48, "提醒簿"

Else

If Month(Now()) = 9 And Day(Now()) = 30 Then

MsgBox "记得今晚8点蚂蚁酒吧见MM哟", 48, "扮酷点哟"

End If

End If

MsgBox "再忙再累不能忘约会！", 48, "哈哈哈"

End Sub

输入完成以上代码后按[Ctrl+S]将宏保存在通用模板上，再按[Alt+Q]返回到Word中，这个约会提醒簿就做成了。对以上宏内容作简要介绍，宏名“Autoexit”代表一个自动宏，它能在关闭Word时自动运行宏的内容；宏中使用了“If…Then…Else…”的条件语句，想必学过Basic语言的朋友都能看懂；第三行中的“MsgBox函数”的作用是显示一个对话框，语句格式为“MsgBox "显示内容",图标代码, "对话框标题"”，其中图标代码为48时对话框将显示“!”图标，并使扬声器鸣“咚”的警示音。

实际效果如何呢？请看——下班时间到了，保存好文档后关闭Word，就在这时弹出一个漂亮的对话框“别忘了9月30日晚8点蚂蚁酒吧的约会哟”，接着又弹出一个搞笑的对话框“再忙再累不能忘约会！”而到了9月30日那天，提示信息更明确“记得今晚8点……”。有了Word帮忙提醒，我还担心什么呢？