你是不是整天面對(duì)著電腦而感到頭昏腦漲，但無窮無盡的工作卻讓你得不到外出休息的機(jī)會(huì)，哪怕只有十幾分鐘的時(shí)間。其實(shí)，我們?cè)诠ぷ髦幸部梢宰晕曳潘梢幌碌摹? 一、別孤獨(dú)，我來陪你 把你最親近的人的照片掃描好后保存為JPG格式，打開Word 2003，在“插入→圖片→來自文件”把保存好的圖片插入到Word文檔中，然后選擇“工具→自動(dòng)更正選項(xiàng)”，在“替換”中輸入她的名字，如“安琪”，單擊“確定”按鈕后退出(如圖1)。以后，只要你在輸入“安琪”時(shí)，她的照片就會(huì)出現(xiàn)在你的面前，有她伴著你辦公，這回不就孤獨(dú)了吧。 如果有多張圖片，可以一次插入到Word 2003中，然后全部選中后進(jìn)行自動(dòng)更正，則出現(xiàn)的就是她的一組照片。 二、自動(dòng)提醒 會(huì)不會(huì)因?yàn)楣ぷ髅Χ�忘了女朋友的生日？不要緊，我保證你到時(shí)會(huì)記得，這只要一個(gè)宏就可以實(shí)現(xiàn)。 按下“Alt+F8”組合鍵，在彈出的“宏”對(duì)話框中的“宏名”處輸入宏的名稱，如SR，單擊“創(chuàng)建”。在彈出的Visual Basic編輯器中的代碼“Sub SR ()”與“End Sub”之間輸入以下內(nèi)容(如圖2)： Sub Autoexec () If Month(Now()) = 3 And Day(Now()) = 4 Then Nam$ = InputBox$("親愛的，告訴我你的小名，我有東西給?quot;) If Nam$ = "安安" Then MsgBox "今天是Amdel的生日" MsgBox "現(xiàn)在你應(yīng)該給她發(fā)郵件，告訴她幾點(diǎn)鐘下班" MsgBox "今天要買九十九支玫瑰給她" MsgBox "對(duì)她說，你是我的最愛，但除了電腦" MsgBox "對(duì)她說，我會(huì)一生一世地愛你" Else MsgBox "你是誰？到辦公室呆著去�；蛘�，丟開你的電腦，到外面玩一下再回來" End If End If 上述代碼說明這是一個(gè)自動(dòng)運(yùn)行的宏，可以在Word 2003啟動(dòng)時(shí)自動(dòng)運(yùn)行，若系統(tǒng)日期為3月4日，就會(huì)彈出對(duì)話框來詢問使用者的小名，如果你回答不正確，則會(huì)彈出“你是誰？到辦公室呆著去……”，只有輸入“安安”后才會(huì)出現(xiàn)預(yù)定的內(nèi)容。 提示：應(yīng)用上面介紹的這種方式，我們還可以將其設(shè)置為公告，備忘錄等。