【正文】 ishiTishi = MsgBox(您要保存目前所有的文檔嗎？, 4, 提示您保存文檔)If Tishi = 6 Then SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocumentEnd IfEnd Sub代碼解釋?zhuān)篗sgBox的參數(shù)“4”與返回值“6”，現(xiàn)在大家不會(huì)不明白了吧？“4”表示顯示“是、否”兩個(gè)按鈕，“6”則表示操作者選擇的是“是”按鈕。在實(shí)際工作中，Quit方法可以用于提示用戶保存所有目前打開(kāi)的文檔?！?========關(guān)閉程序的代碼=========sub 關(guān)閉程序 ( )Application. quitEnd sub執(zhí)行本段代碼，就會(huì)退出正在運(yùn)行的Office程序（相應(yīng)的Application對(duì)像，可以是Word、Excel等）。）Application對(duì)像１、Application對(duì)像的Quit方法該方法用于退出應(yīng)用程序（Application）。我們?cè)诰幊虝r(shí)，對(duì)菜單欄與工具欄的修改，都是通過(guò)操作“ComandBars”對(duì)像來(lái)實(shí)現(xiàn)的。CommandBars對(duì)像：即“命令欄”對(duì)像。Document對(duì)像：Document對(duì)像又具許多子對(duì)像。該對(duì)像中每一個(gè)單獨(dú)的文檔，即是文檔對(duì)像“Document”。Application對(duì)像是一個(gè)應(yīng)用程序中的“總對(duì)像”或者說(shuō)是“頂級(jí)對(duì)像”。要想得到更詳細(xì)的內(nèi)容，朋友們可以在完全掌握本實(shí)例后，嘗試看看VBA的幫助，在幫助文件中搜索“Microsoft Word 對(duì)象”即可。在實(shí)例四中，我們已接觸了對(duì)像、屬性、方法和事件的基本概念，今天，我們就來(lái)學(xué)習(xí)一下Word中的常見(jiàn)對(duì)像以及它們的屬性、方法和事件。 如果要求您不用“設(shè)計(jì)時(shí)”修改控件屬性，而讓您用“運(yùn)行時(shí)”修改控件屬性的方法，來(lái)制作步驟一中的界面，您不愿意試一試嗎？ 修改代碼來(lái)確定媒體文件的路徑及文件名不麻煩嗎？難道您不愿意使用“輸入框”？ 從此之后，王子和公主就在您的Word中……哦？錯(cuò)了，應(yīng)該是——從此以后，您的Word中，就多了一個(gè)可以播放Mpg、Mp3……等等媒體的小妞……啊，又錯(cuò)了，是“小鈕”。保證它是被選中的，再回到“命令”選項(xiàng)卡上，點(diǎn)擊正中間的“更改所選內(nèi)容”，把它的名字“美化”一下，或者再給它添一個(gè)圖標(biāo)，怎么樣，帥吧？！酷吧？！(圖54) 回到Word，指向工具——宏，打開(kāi)“宏名”對(duì)話框（不要告訴我，你找不到這個(gè)對(duì)話框），在“宏名”中輸入“我的播放器”（沒(méi)有引號(hào)），點(diǎn)擊“創(chuàng)建”按鈕，在VBE所生成空過(guò)程中輸入——Sub 我的播放器()End Sub本段代碼與上段代碼一樣，也無(wú)需解說(shuō)了吧？ 雙擊“結(jié)束程序”按鈕，在打開(kāi)空過(guò)程中輸入——Private Sub CommandButton2_Click()Unload UserForm1End Sub代碼解說(shuō)：當(dāng)然，您的電腦上恐怕不會(huì)有“D:\MyMpg\”文件的，您可要根據(jù)自己電腦上的實(shí)際情況輸入這部分的內(nèi)容。）。它尾巴上的“1”，指它是在本窗體上的第一個(gè)“MediaPlayer控件”。代碼解說(shuō)：準(zhǔn)備工作已就緒，開(kāi)始編寫(xiě)代碼了吧！步驟二：編寫(xiě)代碼雙擊“開(kāi)始運(yùn)行”按鈕，在VBE自動(dòng)生成的空過(guò)程中輸入如下代碼：Private Sub CommandButton1_Click() = D:\MyMpg\ End Sub(注意: office2003及以上版本，上句代碼應(yīng)該是：=D:\MyMpg\ ，這是因?yàn)樵谶@些版本上，MediaPlayer控件的屬性與方法已略有些變化了。我修改了窗體和按鈕的顏色，并修改了按鈕上的字體以及字號(hào)和字色。 現(xiàn)在，我們就可以利用“屬性對(duì)話框”開(kāi)始對(duì)整個(gè)窗體及窗體上所有的控件進(jìn)行“美化”。選中“Windows Media player”控件，在窗體上按您的需要和喜好“畫(huà)”出它將要顯示的范圍?！按_定”后，退出“附加控件”面板（圖51）。 回憶實(shí)例四中的操作方法，在VBE中添加一個(gè)窗體，窗體上添加兩個(gè)按鈕。其實(shí)，本實(shí)例中，理論知識(shí)上的難度幾乎沒(méi)有，但操作上的步驟卻相當(dāng)多，朋友們耐心一點(diǎn)。 學(xué)習(xí)使用窗體與控件進(jìn)行編程；實(shí)例四到此結(jié)束，怎么樣，有收獲嗎？下一個(gè)實(shí)例“Word版的媒體播放器”，將是我們前面知識(shí)的一個(gè)集中練習(xí)，也將是一個(gè)會(huì)讓您很有“成就感”的練習(xí)。 本例只用到了“控件工具箱”中的按鈕控件，其它的控件雖然在作用上各不相同，但在使用的方法上與按鈕控件沒(méi)有什么大的區(qū)別，朋友們就自己嘗試一下其它的控件吧；本實(shí)例的知識(shí)擴(kuò)展：代碼最后的“Unload”是窗體的一個(gè)方法，其作用是卸載窗體，與平時(shí)我們關(guān)閉窗體時(shí)按右上角最大、最小化按鈕那里的“X”按鈕等價(jià)。End IfEnd Sub再體會(huì)體會(huì)“運(yùn)行時(shí)”修改屬性值的靈活性。“設(shè)計(jì)時(shí)”修改控件的屬性雖然更方便、更容量掌握，但它往往沒(méi)有“運(yùn)行時(shí)”修改控件屬性那么靈活。 第2步中，我們是“先設(shè)計(jì)好了”按鈕的提示文字再運(yùn)行；第3步中，我們根本沒(méi)有“設(shè)計(jì)”按鈕的提示文字，而是已經(jīng)“在窗體運(yùn)行的時(shí)候”利用了按鈕的單擊事件，改變了按鈕表面的提示文字。）；當(dāng)按鈕被單后，是不是與第2步運(yùn)行時(shí)的情況一樣？（與圖42右面相同?，F(xiàn)在，我們就在這個(gè)“CommandButton1”的Click事件（即按鈕被單擊的事件）空過(guò)程中，添加如下的代碼：’’’========用代碼修改屬性========Private Sub CommandButton1_Click() = 開(kāi)始運(yùn)行End Sub本實(shí)例之初，我們學(xué)習(xí)了為對(duì)像的屬性賦值的格式，那么，您看到代碼“ = 開(kāi)始運(yùn)行”時(shí)，應(yīng)該不難理解吧？代碼中的CommandButton1是指窗體上的那個(gè)按鈕，如果有多個(gè)按鈕的話，就會(huì)分別被命名為CommandButtonCommandButton3……等等。下面，我們還要為控件的屬性賦值，但賦值的方法有所不同，請(qǐng)注意體會(huì)以下賦值方法與上面的區(qū)別。保存后，再次運(yùn)行，看看與第１步運(yùn)行時(shí)相比，效果有什么不同？對(duì)，按鈕上面的提示文字已經(jīng)改變成“開(kāi)始運(yùn)行”了。 右擊按鈕CommandButton1，選“屬性”，（如果“屬性”對(duì)話框本來(lái)就的打開(kāi)的，則選中按鈕CommandButton1，然后直接修改屬性就行了。最后，千萬(wàn)記得在本實(shí)例完成之后，把“安全性”改回為高，以避免宏病毒。這里需要注意兩點(diǎn)：A、如果光標(biāo)不在代碼中間，而您的模塊中又還存在其它的代碼的話，運(yùn)行時(shí)，VBE會(huì)讓您選擇要運(yùn)行的宏名稱(chēng)；B、如果工程被鎖定而不能運(yùn)行的話，首先請(qǐng)?jiān)凇肮ぞ摺辍踩浴睂?duì)話框中把安全性設(shè)為“低”，然后刪除VBE中所有存在的代碼，并關(guān)閉Word，等一下再重新啟動(dòng)，重新開(kāi)始本步的操作。如圖42左面。 首先，雙擊做好的窗體或按鈕，就會(huì)打開(kāi)代碼窗口。），按鈕的名稱(chēng)默認(rèn)為“CommandButton1”。 打開(kāi)VBE，指向“插入”菜單，點(diǎn)擊“插入用戶窗體”命令（也可以在工具欄中做同樣的動(dòng)作。今天，我們先試試這些知識(shí)在窗體與控件上的運(yùn)用吧！我們利用VBA語(yǔ)言進(jìn)行編程，不外乎就是為了控制某個(gè)對(duì)像的某個(gè)屬性值以方便我們的工作罷了！ 那位朋友說(shuō)了“喂，大哥，我們可是在學(xué)習(xí)Office的VBA編程語(yǔ)言啊！怎么扯到電視機(jī)上去了？！”好吧，我們來(lái)談Office。）。方法，則是指人對(duì)電視機(jī)進(jìn)行的操作，比如，現(xiàn)在顯示的是10頻道，我在電視機(jī)的頻道調(diào)節(jié)按鈕上，向前按了5次，則進(jìn)入了15頻道。這兩種類(lèi)型的程序在使用時(shí)剛好相反，但，它們?cè)赩BA編程語(yǔ)言中的運(yùn)用幾乎可以說(shuō)是無(wú)處不在！！請(qǐng)一定要認(rèn)真體會(huì)這兩個(gè)程序中關(guān)于“對(duì)像”、“屬性”與“值”之間的關(guān)系??！ 程序不難懂吧？ Sub 頻道的值頻道的值 = 電視機(jī) ．當(dāng)前頻道MsgBox現(xiàn)在，我正在看一個(gè)節(jié)目，但我不知道這個(gè)節(jié)目所在的是幾頻道，怎么辦呢？請(qǐng)看程序——‘========程序名“當(dāng)前頻道是多少”========Sub在“對(duì)像”引用自己的某個(gè)“屬性”時(shí)，我們?cè)谒鼈冎g用一個(gè)小圓點(diǎn)（英文的句號(hào)）來(lái)表示，具體的格式如代碼“電視機(jī)．頻道 = 運(yùn)行這代碼，輸入您想看的頻道的值，比如“10”或是“36”，那么，您就會(huì)看到10頻道或是36頻道的節(jié)目。 XEnd Sub如果您不相信？那么請(qǐng)看——說(shuō)到基礎(chǔ)知識(shí)，我想告訴朋友們—— 我們必須建立起“面向?qū)ο瘛钡木幊趟枷搿? 了解什么是對(duì)像、屬性、方法和事件。 次!)If aeMsgBox (您還需努力！)Elseif aMsgBox (您的猜數(shù)能力：優(yōu)！)Else a=eMsgBox (您的猜數(shù)能力：良！)End iff=MsgBox (您還愿意繼續(xù)玩嗎？，4,”繼續(xù)游戲”)’’注意此處常數(shù)的使用if f=7 then’’注意此處消息框返回值的使用exit doelseend ifloopEnd Sub從零開(kāi)始，步入Word宏編程的世界（第四講）實(shí)例四：窗體與基本的控件知識(shí)點(diǎn)：窗體與控件的使用；如果您能順利完成知識(shí)擴(kuò)展中的問(wèn)題題，那么祝賀您，您已過(guò)了入門(mén)的第一個(gè)小難關(guān)，可以進(jìn)入下一步的實(shí)例四了，如果您還存在疑問(wèn)，則再請(qǐng)多動(dòng)手把前三個(gè)實(shí)例練一練??！附：完善的猜數(shù)游戲——Sub 您猜()Dim a, b, c, d, e, fe=6’該數(shù)字用于計(jì)算所猜次數(shù)是否為優(yōu)、良等Doa = 0Randomizeb = Int(100 * Rnd)Doa = a + 1c = InputBox(請(qǐng)輸入您所猜的數(shù))d = CInt(c)If b d ThenMsgBox (您猜的數(shù)大了)ElseIf b d ThenMsgBox (您猜的數(shù)小了)Else: b = dMsgBox (哈哈,您猜對(duì)了!)Exit DoEnd IfLoopMsgBox (您猜了 amp。 如果在剛開(kāi)始游戲讓我們輸入數(shù)字時(shí)，我們選擇了“取消”就會(huì)出錯(cuò)，您現(xiàn)在能利用自己已有的知識(shí)來(lái)解決這個(gè)問(wèn)題嗎？ 試一試給程序補(bǔ)充部分內(nèi)容，其功能為：在猜完一次后，詢(xún)問(wèn)游戲人“您還愿意再玩一次嗎？”，并根據(jù)游戲者的響應(yīng)，再次運(yùn)行程序或退出程序。 試一試自己在程序結(jié)尾處再添幾句，判斷所猜的次數(shù)：如果小于六次，給出一個(gè)評(píng)價(jià)“優(yōu)”；等于六次，給出一個(gè)評(píng)價(jià)“良”；大于六次，給出一個(gè)評(píng)價(jià)“您還需努力！”。在實(shí)例二中，我們已接觸過(guò) If 語(yǔ)句，If語(yǔ)句的基本格式是：If（條件）Then(結(jié)果)End If’（結(jié)束If判斷語(yǔ)句）在 If 語(yǔ)句判斷的過(guò)程當(dāng)中，還可以有子判斷語(yǔ)句：Elseif then 。在本程序中，Exit程序中的DO、Exit Do以及Loop為一個(gè)整體。 感覺(jué)到困難了嗎？如果感覺(jué)到了困難，就請(qǐng)將上面的內(nèi)容再體會(huì)體會(huì)。(相信這個(gè)時(shí)候您看幫助文件中的這部分內(nèi)容，將不會(huì)再是一件難事。與CInt類(lèi)似的常用轉(zhuǎn)換函數(shù)還有：Clin、CSng、CStr等。 我們?cè)诔绦虍?dāng)中用的CInt函數(shù)，就是將一個(gè)String類(lèi)型（字符）的值，轉(zhuǎn)換成了一個(gè)Integer類(lèi)型（整數(shù)）的值。該類(lèi)型的數(shù)值基本上可以滿足我們通常使用整數(shù)時(shí)的需要； String——包含變長(zhǎng)字符串，最大長(zhǎng)度可為 20 億個(gè)字符。這里涉及到VBA數(shù)據(jù)類(lèi)型的知識(shí)。其相應(yīng)代碼是“d = CInt(c)”。 d這個(gè)變量，是一個(gè)整數(shù)。顯然，文字是沒(méi)有辦法去與數(shù)字比較大小的，所以，我們要用到變量d。 c這個(gè)變量，是取得輸入框中我們所猜測(cè)的數(shù)字。），上面的內(nèi)容希望大家能悉心地體會(huì)。），并將它的值賦予了變量“b”。 Rnd函數(shù)是生成一個(gè)介于0與1之間的小數(shù)，乘以100是讓這個(gè)小數(shù)成為一個(gè)介于0到100之間的數(shù)；Int函數(shù)的作用是將一個(gè)數(shù)的小數(shù)部分去掉，只保留它的整數(shù)部分，即“取整”。所以，Randomize語(yǔ)句的作用就是生成“真正”的隨機(jī)數(shù)。其相應(yīng)代碼為：Randomize與b = Int(100 * Rnd)這兩句。每多猜一次，它就在自身的基礎(chǔ)上加1，其相應(yīng)的代碼是：a = 0與a = a + 1兩句。代碼解說(shuō)：運(yùn)行本程序，看看效果。End Sub’結(jié)束程序。 a amp。Loop’回到前面的Do,繼續(xù)循環(huán)。Exit Do’既然已經(jīng)猜對(duì)了，就跳出循環(huán)。Else: b = d’進(jìn)行比較，如果猜對(duì)了。ElseIf b d Then’進(jìn)行比較，如果猜小了。If b d Then’進(jìn)行比較，如果猜大了。當(dāng)再次循環(huán)到這兒時(shí)，次數(shù)會(huì)繼續(xù)往上加。b = Int(100 * Rnd) ’生成一個(gè)百以?xún)?nèi)的隨機(jī)數(shù)，“Rnd”就是“隨機(jī)數(shù)生成函數(shù)”。a = 0’這個(gè)變量用于計(jì)算您猜了多少次。請(qǐng)您先試著自己把代碼讀一讀，看看能不能讀懂。 請(qǐng)看代碼，必要的地方已添加了注釋。 程序思路：１、電腦首先生成一個(gè)0到99之間的整數(shù)；２、請(qǐng)您輸入您所猜的數(shù)；３、把您輸入的數(shù)與電腦所生成的數(shù)進(jìn)行比較，并給出“您猜大了”或“您猜小了”的提示；４、如果您猜對(duì)了，則退出程序；如果您沒(méi)有猜對(duì)，則循環(huán)回第二步重復(fù)運(yùn)行，讓您再次輸入自己所猜的數(shù)。 游戲內(nèi)容是這樣的：電腦生成一個(gè)0到99之間的整數(shù)，請(qǐng)您來(lái)猜這個(gè)數(shù)是多少，每猜一次，電腦都給您一個(gè)提示，直