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

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

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

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

一、建立窗體

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

1、啟動(dòng)Word，單擊菜單“工具→宏→Visual Basic編輯器”，也可以按快捷鍵[Alt+F11]，切換到Visual Basic編輯器窗口。

2、單擊菜單“插入→用戶窗體”，系統(tǒng)建立一個(gè)默認(rèn)樣式的用戶窗體。對(duì)窗體可拖動(dòng)其右、下邊的小方框來可改變大小，本例中根據(jù)功能需要將窗體拖為扁長(zhǎng)形狀。

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

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

二、建立控件

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

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

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

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

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

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

三、編寫代碼

上面建立的窗體和控件還只是“徒有其表”，因?yàn)檫€沒有為各個(gè)控件賦予具體的功能，接下來就需要編寫VBA代碼 ，通過代碼告訴各控件在什么情況下該執(zhí)行什么任務(wù)。編寫代碼的方法是：?jiǎn)螕舨藛巍耙晥D→代碼”或按F7鍵，即切換到代碼窗口，可在代碼窗口的聲明部分（頂端空白區(qū)域）開始錄入代碼。

首先要編寫的是公用Sub過程的代碼，Sub過程是一系列由Sub和End Sub語(yǔ)句包含起來的 VBA 語(yǔ)句。以下兩個(gè)Sub過程分別實(shí)現(xiàn)顯示笑話和關(guān)閉窗體的功能。代碼如下：

Sub 顯示笑話()
　　Dim line$(500) ’定義笑話文件的最大行數(shù)
　　Open "c:xiaohua.dat" For Input As #1 ’打開笑話文件
　　Do While Not EOF(1)
　　N = N + 1
　　Input #1, line$(N) ’讀入笑話內(nèi)容到變量
　　Loop
　　Close #1
　　Randomize
　　num = Int(N * Rnd + 1) ’產(chǎn)生隨機(jī)數(shù)
　　Do While line$(num) = "" ’識(shí)別并忽略空行
　　num = num + 1
　　If num = N + 1 Then num = 1
　　Loop
　　TextBox1.Text = line$(num) ’顯示笑話內(nèi)容
　　End Sub

　　Sub 結(jié)束()
　　Open "c:xiaohua.ddd" For Output As #1
　　If CheckBox1.Value = True Then ’結(jié)束前檢查是否選中復(fù)選框
　　Print #1, "no" ’若選中則寫入判斷因子“no”
　　Else: Print #1, "yes" ’未選中則寫入判斷因子“yes”
　　End If
　　Close #1
　　End ’關(guān)閉窗體
　　End Sub

小提示：

1、上面的笑話文件c:xiaohua.dat是一個(gè)純文本文件，需事先用記事本錄入保存，在錄入或維護(hù)時(shí)要求每條笑話獨(dú)占一行（不回車換行），兩條笑話之間可插入一個(gè)或多個(gè)空行，笑話文件的總行數(shù)不能超過定義的最大行數(shù)。

2、文件c:xiaohua.ddd也是一個(gè)純文本文件，其作用是被用來放置判斷因子，后續(xù)步驟中的宏代碼將根據(jù)此文件中的判斷因子來決定是否在啟動(dòng)Word時(shí)顯示笑話。此文件不需手工建立，由程序自動(dòng)生成。

接下來要編寫進(jìn)入、離開窗體時(shí)、單擊“下一條”、“關(guān)閉”等按鈕時(shí)的事件過程，當(dāng)發(fā)生事件時(shí)將調(diào)用公用的Sub過程來執(zhí)行功能。代碼如下：

Private Sub UserForm_Activate() ’運(yùn)行窗體時(shí)顯示笑話
　　End Sub
　　Private Sub CommandButton1_Click() ’單擊“下一頁(yè)”按鈕時(shí)顯示笑話
　　End Sub
　　Private Sub CommandButton2_Click() ’單擊“關(guān)閉”按鈕時(shí)結(jié)束
　　End Sub
　　Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
’通過其它途徑關(guān)閉窗體時(shí)結(jié)束
　　End Sub

小提示：這一部分代碼可以緊接第一部代分碼連續(xù)錄入，也可在代碼窗口的“對(duì)象框”、“過程/事件框”中分別選擇對(duì)象和事件，然后在自動(dòng)給出的Private Sub…與Sub之間輸入要調(diào)用的Sub過程名，這樣減輕了錄入量，并減少了出錯(cuò)的可能性。

四、完善功能

完成上面三步便初具規(guī)模了，窗體已經(jīng)能夠運(yùn)行，但復(fù)選框的作用還不能發(fā)揮出來。接下來通過創(chuàng)建宏來完善窗體功能。

創(chuàng)建宏的方法是：?jiǎn)螕舨藛巍肮ぞ摺辍保凇昂昝蔽谋究蛑休斎牒昝癆utoexec”，接著單擊“創(chuàng)建”，錄入完成以下代碼：

Sub Autoexec()
　　On Error GoTo err ’出錯(cuò)處理
　　Open "c:xiaohua.ddd" For Input As #1
　　Input #1, Ask$ ’讀取判斷因子
　　Close #1
　　If Ask$ = "yes" Then xiaohua.Show
’若判斷因子為yes則運(yùn)行xiaohua窗體
　　err:
　　End Sub
　　Sub笑話()
　　xiaohua.Show ’xiaohua為第一步中建立的窗體名稱
　　End Sub

錄入完畢后關(guān)閉Visual Basic窗口返回到Word。以上代碼創(chuàng)建兩個(gè)宏，Autoexec宏是一個(gè)自動(dòng)宏，它在Word啟動(dòng)時(shí)自動(dòng)運(yùn)行，并根據(jù)讀取的判斷因子來決定是否運(yùn)行窗體。名為“笑話”的宏則無條件運(yùn)行xiaohua窗體，為了能方便的運(yùn)行這個(gè)宏，我們可把它添加為菜單命令，方法是：?jiǎn)螕簟肮ぞ摺远x”，選擇“命令”選項(xiàng)卡，在“類別”框中找到“宏”，將右邊的“命令”框中“Normal.NewMacros.笑話”拖入菜單“工具”中，并對(duì)拖入的命令點(diǎn)右鍵，在“命名”文本框中重命名為“Word講笑話”。

至此，全部工作完成。當(dāng)Word啟動(dòng)時(shí)就能看到笑話了，平時(shí)要閱讀笑話時(shí)，單擊菜單“工具→Word講笑話”即可。若選中了“下次啟動(dòng)時(shí)不顯示”復(fù)選框，以后也可隨時(shí)使用它的菜單命令來恢復(fù)顯示。

小提示：不知你發(fā)現(xiàn)沒有，上面做出來的這個(gè)小東東，和很多軟件的“每次一貼”、“日積月累”非常的相似，而獨(dú)到之處是可以自己決定要顯示的內(nèi)容，如果你還想看些名人名言來提高自己的修養(yǎng)，或者想多學(xué)些電腦小技巧，不妨把這些內(nèi)容組織進(jìn)去，用它來做最具有個(gè)性化的“日積月累”妙妙貼。