word自动提醒.docVIP

word自动提醒Sub Autoexec 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日，就会弹出对话框来询问使用者的小名，如果你回答不正确，则会弹出“你是谁？到办公室呆着去……”，只有输入“安安”后才会出现预定的内容。 提示：应用上面介绍的这种方式，我们还可以将其设置为公告，备忘录等。 用Word给约会提醒句容创业网2L $dk U y+D P tg gB!l+wj9E@0昨天在聊天室中认识一个MM，聊得很投缘，把照片传给我看，嘿，还是美眉呢，更让人高兴的是她答应与我见面，并约好9月30日晚上8点在蚂蚁酒吧见面。不过最近太忙了，也太累了，常常丢三落四，忘东忘西。MM的约会可千万不能忘记哟，有没有什么“强心丸”呢？想起每天都要用Word，于是研究起来，果然有办法让Word来提醒我约会。 2_S4k xx
Av0 句容创业网/j\0S?]? 首先打开自己的电脑启动Word（以Word 2000为例），按快捷键［Alt+F8］打开“宏”对话框，在“宏名”文本框中输入“Autoexit”，然后单击［创建］。在“Visual Basic编辑器”窗口，输入以下代码：句容创业网$V YFm|p;R #L,g\%~#a TW0Sub Autoexit 句容创业网C[e`G 句容创业网 |6 ^p3TN| If Month Now 9 And Day Now 〈 30 Then句容创业网] z8sRib
Mkn \ B 句容创业网/hsrnUh Z8RW#t MsgBox 别忘了9月30日晚8点蚂蚁酒吧的约会哟, 48, 提醒簿句容创业网,H z%yh pb#P|4nxYf 句容创业网C-mJ~h Else /wu?#T3H v7m.PoQmv0 句容创业网 c9P/Y8F If Month Now 9 And Day Now 30 Then 9fLv,Le2du
b9s0 句容创业网 D3 Q \6Td \J MsgBox 记得今晚8点蚂蚁酒吧见MM哟, 48, 扮酷点哟句容创业网S*c;W;o_ Q:b/Q 句容创业网-Q3N3i9U$^8K.p1Um End If l2j-LjA c0 i3f1RRK,H:y `| x0End If 2P5 -Z6[ i,J.j0 句容创业网.y
z8t:aPb MsgBox 再忙再累不能忘约会！, 48, 哈哈哈句容创业网4 -|4[3r _I+\.\Nl !pmK[^n3OJ/a0End Sub l-~8R+H N2~l e ic0 /RHh+W/VB5Y8P0输入完成以上代码后按[Ctrl+S]将宏保存在通用模板上，再按[Alt+Q]返回到Word中，这个约会提醒簿就做成了。对以上宏内容作简要介绍，宏名“Autoexit”代表一个自动宏，它能在关闭Word时自动运行宏的内容；宏中使用了“If…Then…Else…”的条件语句，想必学过Basic语言的朋友都能看懂；第三行中的“MsgBox函数”的作用是显示一个对话框，语句格式为“MsgBox 显示内容,图标代码, 对话框标题”，其中图标代码为48时对话框将显示“!”图标，并使扬声器鸣“咚”的警示音。 r+px4~$[~o_0 nyA$ 0i M0实际效果如何呢？请看——下班时间到了，保存好文档后关闭Word，就在这时弹出一个漂亮的对话框“别忘了9月30日晚8点蚂蚁酒吧的约会哟”，接着又弹出一个搞笑的对话框“再忙再累不能忘约会！”而到了9月30日那天，提示信息更明确“记得今晚8点……”。有了Word帮忙提醒，我还担心什么呢？