- 关 键 词：
- visual basic
- word
引用:http://www.qqread.com/word/j481487107.html
你是不是整天面对着电脑而感到头昏脑涨，但无穷无尽的工作却让你得不到外出休息的机会，哪怕只有十几分钟的时间。其实，我们在工作中也可以自我放松一下的。
一、别孤独，我来陪你
把你最亲近的人的照片扫描好后保存为JPG格式，打开Word 2003，在“插入→图片→来自文件”把保存好的图片插入到Word文档中，然后选择“工具→自动更正选项”，在“替换”中输入她的名字，如“安琪”，单击“确定”按钮后退出(如图1)。以后，只要你在输入“安琪”时，她的照片就会出现在你的面前，有她伴着你办公，这回不就孤独了吧。
如果有多张图片，可以一次插入到Word 2003中，然后全部选中后进行自动更正，则出现的就是她的一组照片。
二、自动提醒
会不会因为工作忙而忘了女朋友的生日？不要紧，我保证你到时会记得，这只要一个宏就可以实现。
按下“Alt+F8”组合键，在弹出的“宏”对话框中的“宏名”处输入宏的名称，如SR，单击“创建”。在弹出的Visual Basic编辑器中的代码“Sub SR ()”与“End Sub”之间输入以下内容(如图2)：
Sub Autoexec ()
If Month(Now()) = 3 And Day(Now()) = 4 Then
Nam$ = InputBox$("亲爱的，告诉我你的小名，我有东西给?quot;)
If Nam$ = "安安" Then
MsgBox "今天是Amdel的生日"
MsgBox "现在你应该给她发邮件，告诉她几点钟下班"
MsgBox "今天要买九十九支玫瑰给她"
MsgBox "对她说，你是我的最爱，但除了电脑"
MsgBox "对她说，我会一生一世地爱你"
Else
MsgBox "你是谁？到办公室呆着去。或者，丢开你的电脑，到外面玩一下再回来"
End If
End If
上述代码说明这是一个自动运行的宏，可以在Word 2003启动时自动运行，若系统日期为3月4日，就会弹出对话框来询问使用者的小名，如果你回答不正确，则会弹出“你是谁？到办公室呆着去……”，只有输入“安安”后才会出现预定的内容。
提示：应用上面介绍的这种方式，我们还可以将其设置为公告，备忘录等。
更多内容请看BT专题，或进入讨论组讨论。
你是不是整天面对着电脑而感到头昏脑涨，但无穷无尽的工作却让你得不到外出休息的机会，哪怕只有十几分钟的时间。其实，我们在工作中也可以自我放松一下的。
一、别孤独，我来陪你
把你最亲近的人的照片扫描好后保存为JPG格式，打开Word 2003，在“插入→图片→来自文件”把保存好的图片插入到Word文档中，然后选择“工具→自动更正选项”，在“替换”中输入她的名字，如“安琪”，单击“确定”按钮后退出(如图1)。以后，只要你在输入“安琪”时，她的照片就会出现在你的面前，有她伴着你办公，这回不就孤独了吧。
如果有多张图片，可以一次插入到Word 2003中，然后全部选中后进行自动更正，则出现的就是她的一组照片。
二、自动提醒
会不会因为工作忙而忘了女朋友的生日？不要紧，我保证你到时会记得，这只要一个宏就可以实现。
按下“Alt+F8”组合键，在弹出的“宏”对话框中的“宏名”处输入宏的名称，如SR，单击“创建”。在弹出的Visual Basic编辑器中的代码“Sub SR ()”与“End Sub”之间输入以下内容(如图2)：
Sub Autoexec ()
If Month(Now()) = 3 And Day(Now()) = 4 Then
Nam$ = InputBox$("亲爱的，告诉我你的小名，我有东西给?quot;)
If Nam$ = "安安" Then
MsgBox "今天是Amdel的生日"
MsgBox "现在你应该给她发邮件，告诉她几点钟下班"
MsgBox "今天要买九十九支玫瑰给她"
MsgBox "对她说，你是我的最爱，但除了电脑"
MsgBox "对她说，我会一生一世地爱你"
Else
MsgBox "你是谁？到办公室呆着去。或者，丢开你的电脑，到外面玩一下再回来"
End If
End If
上述代码说明这是一个自动运行的宏，可以在Word 2003启动时自动运行，若系统日期为3月4日，就会弹出对话框来询问使用者的小名，如果你回答不正确，则会弹出“你是谁？到办公室呆着去……”，只有输入“安安”后才会出现预定的内容。
提示：应用上面介绍的这种方式，我们还可以将其设置为公告，备忘录等。
更多内容请看BT专题，或进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- BT (462篇文章)
- 编辑多乐趣 为Word文档加入背景音乐 (39次浏览)
- 活学活用Office剪贴板 (20次浏览)
- 傻眼了吧 Word2007也能算算式 (0次浏览)
- 在Word中任意选中单词某一部分字母 (0次浏览)
- 不删减文字 给Word文件减减肥 (0次浏览)
- 新年到 用Word2007制作春节喜庆用品 (0次浏览)
