| 用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帮忙提醒，我还担心什么呢？ |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2024-5-13 03:57 , Processed in 0.097046 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
