Word2003的另類超級BT玩法

2019-11-05 20:54:40

字體：大中小

來源：轉載

供稿：網友

　　你是不是整天面對著電腦而感到頭昏腦漲，但無窮無盡的工作卻讓你得不到外出休息的機會，哪怕只有十幾分鐘的時間。其實，我們在工作中也可以自我放松一下的。　　

　　一、別孤獨，我來陪你　　

　把你最親近的人的照片掃描好后保存為JPG格式，打開Word 2003，在“插入→圖片→來自文件”把保存好的圖片插入到Word文檔中，然后選擇“工具→自動更正選項”，在“替換”中輸入她的名字，如“安琪”，單擊“確定”按鈕后退出(如圖1)。以后，只要你在輸入“安琪”時，她的照片就會出現在你的面前，有她伴著你辦公，這回不就孤獨了吧。

　　 Word 2003的另類超級BT玩法

　　

　　如果有多張圖片，可以一次插入到Word 2003中，然后全部選中后進行自動更正，則出現的就是她的一組照片。　　

　　二、自動提醒　　

　會不會因為工作忙而忘了女朋友的生日？不要緊，我保證你到時會記得，這只要一個宏就可以實現。

　　按下“Alt+F8”組合鍵，在彈出的“宏”對話框中的“宏名”處輸入宏的名稱，如SR，單擊“創建”。在彈出的Visual Basic編輯器中的代碼“Sub SR ()”與“End Sub”之間輸入以下內容(如圖2)：

　　 Word 2003的另類超級BT玩法

　　

　　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日，就會彈出對話框來詢問使用者的小名，如果你回答不正確，則會彈出“你是誰？到辦公室呆著去……”，只有輸入“安安”后才會出現預定的內容。　　

　　提示：應用上面介紹的這種方式，我們還可以將其設置為公告，備忘錄等。

上一篇：七招挽回受損WORD文檔

下一篇：能說會道的Word 2003 實現文本教學的朗讀