Word算得上是使用最廣泛的應(yīng)用軟件了，但是如果你僅僅用它來打打字、畫畫表，那就太平淡無奇了，也有些委屈了Word。Word不僅有強大的文字編輯能力，它還內(nèi)嵌一個VBA（Visual Basic for Applications）編程環(huán)境，可以開發(fā)出滿足個性需求的功能來。

    本人利用VBA編寫了一個“Word講笑話”，做出來后頗有成就感，現(xiàn)將開發(fā)過程和心得寫出來與讀者朋友分享。

    能實現(xiàn)的功能是：當(dāng)每次啟動Word時將自動運行“Word講笑話”，能隨機的顯示一條笑話（當(dāng)然，笑話得事先錄入好并保存在一個文本文件中）。“Word講笑話”的面板中一共有三個按鈕，點擊“下一條”可繼續(xù)閱讀其它笑話，點擊“關(guān)于”可顯示作者和幫助信息，點擊“關(guān)閉”將關(guān)閉窗口。面板中還有一個復(fù)選框，可以讓用戶自由決定下次啟動Word時是否顯示笑話。

    開發(fā)過程主要有以下幾個環(huán)節(jié)（以Word XP為例）：

    一、建立窗體

    窗體是窗口和對話框的統(tǒng)稱，它是Windows應(yīng)用程序的用戶界面的基礎(chǔ)部分。窗體是控件的容器，用來放置文本框、命令按鈕、復(fù)選框等各種控件。

    1、啟動Word，單擊菜單“工具→宏→Visual Basic編輯器”，也可以按快捷鍵[Alt+F11]，切換到Visual Basic編輯器窗凇?p>    2、單擊菜單“插入→用戶窗體”，系統(tǒng)建立一個默認(rèn)樣式的用戶窗體。對窗體可拖動其右、下邊的小方框來可改變大小，本例中根據(jù)功能需要將窗體拖為扁長形狀。

    3、單擊菜單“視圖→屬性窗口”，在屬性窗口中修改窗體的幾個主要屬性值。在屬性列表中選定“名稱”屬性，輸入“Xiaohua”，然后選定“Caption”屬性，輸入“Word講笑話”。現(xiàn)在，我們便能看到一個標(biāo)題為“Word講笑話”的窗體了。

    

    小提示：窗體中的點狀物稱為“網(wǎng)格”，它能在建立控件時起位置參考和智能對齊的作用，單擊菜單“工具→選項”，選擇“通用”選項卡，可修改網(wǎng)格的選項和網(wǎng)格塊的大小，建議使用較小的網(wǎng)格設(shè)置，這樣能使控件更靠近窗體邊緣的位置，以達到美觀的效果。

    二、建立控件

    建立了窗體就相當(dāng)于打好了地基，下一步的工作就是“添磚加瓦”了，也就是建立控件。常用控件包括文本框、命令按鈕、標(biāo)簽、復(fù)選框、滾動條等。建立控件的方法很簡單，單擊菜單“視圖→工具箱”調(diào)出工具箱，在“工具箱”中選擇控件類型，然后在窗體上單擊或拖動即可。

    

    1、創(chuàng)建文本框：在“工具箱”中選擇“AB ”樣式的按鈕，在窗體上拖動建立一個文本框，并用鼠標(biāo)調(diào)整其位置、大小，若需精確調(diào)整，也可在屬性窗口中調(diào)整“Height”、“Width”等屬性值。很關(guān)鍵的一點是要將“MultiLine”屬性值設(shè)為“True”，它的作用是使文本框能顯示多行文本。

    2、創(chuàng)建命令按鈕：在“工具箱”中選擇命令按鈕（鼠標(biāo)懸停會顯示“命令按鈕”字樣），在窗體上的文本框右邊拖動建立一個命令按鈕，調(diào)整好大小并修改其“Caption”屬性值為“下一條”，接著依次建立“關(guān)閉”、“關(guān)于”按鈕。

    3、創(chuàng)建復(fù)選框：在“工具箱”中選擇復(fù)選框按鈕，在窗體上的文本框下方單擊鼠標(biāo)左鍵，便創(chuàng)建了一個復(fù)選框，修改其“Caption”屬性值為“下次啟動時不顯示”。

    4、創(chuàng)建標(biāo)簽：可在窗體的空余部分以“標(biāo)簽”的形式顯示作者等信息。

    小提示：為了使窗體、控件看起來更美觀、協(xié)調(diào)，可以使用“格式”菜單下的“統(tǒng)一尺寸”命令項使按鈕大小相同，使用“對齊”、“水平間距”、“垂直間距”等命令項，使各控件均勻、合理的布置在窗體中。

    三、編寫代碼

    上面建立的窗體和控件還只是“徒有其表”，因為還沒有為各個控件賦予具體的功能，接下來就需要編寫VBA代碼 ，通過代碼告訴各控件在什么情況下該執(zhí)行什么任務(wù)。編寫代碼的方法是：單擊菜單“視圖→代碼”或按F7鍵，即切換到代碼窗口，可在代碼窗口的聲明部分（頂端空白區(qū)域）開始錄入代碼。 [next]

    

    首先要編寫的是公用Sub過程的代碼，Sub過程是一系列由Sub和End Sub語句包含起來的 VBA 語句。以