Office軟件教學(xué)新形式——基于Vba的Office學(xué)習(xí)平臺的設(shè)計與實現(xiàn)

☆張慶

（南京市中橋中學(xué)，江蘇南京 210043）

一、設(shè)計背景

在進(jìn)行 Office 軟件（Word、Excel、PowerPoint）的教學(xué)時，教師往往先為學(xué)生提供必要的幫助信息，然后讓學(xué)生在完成特定任務(wù)過程中自主探究和學(xué)習(xí)。教師提供的信息通常以課件、網(wǎng)頁或普通文檔的形式存放在教師機(jī)讓學(xué)生共享，學(xué)生根據(jù)提示信息完成教師要求的任務(wù)。這種教學(xué)方法優(yōu)點(diǎn)是方便快捷，節(jié)省時間，教師在課前就可以完成資料的準(zhǔn)備工作，學(xué)生在任務(wù)完成過程中可以隨時翻看提示信息；缺點(diǎn)是學(xué)生需要在不同文件夾或程序中的文檔、網(wǎng)頁之間切換，影響了任務(wù)完成的速度和連續(xù)性，影響了學(xué)生學(xué)習(xí)效率。針對這個問題，筆者設(shè)計了利用Office自身提供的Vba功能設(shè)計個性化的工具欄，實現(xiàn)任務(wù)與相關(guān)資源的調(diào)用與整合，將這些提示性的文件直接在Office程序中顯示出來。此外，本研究中采用了將所有數(shù)據(jù)都存在外部數(shù)據(jù)庫，通過程序讀取、動態(tài)的加載與顯示的方式來實現(xiàn)一種適用于Office軟件學(xué)習(xí)的平臺。

二、設(shè)計思路

建立access數(shù)據(jù)庫，將按鈕文字、任務(wù)內(nèi)容、任務(wù)提示、Flash幫助調(diào)用文件路徑、網(wǎng)頁幫助調(diào)用文件路徑等內(nèi)容存入數(shù)據(jù)表中。按鈕的類型、個數(shù)、幫助文件是針對具體任務(wù)還是針對全部任務(wù)都可設(shè)定。按鈕的類型分為三種：任務(wù)、Flash、網(wǎng)頁，在運(yùn)行時將數(shù)據(jù)表的內(nèi)容根據(jù)按鈕的類型分別讀入三個數(shù)組中，然后根據(jù)三個數(shù)組中相應(yīng)類型按鈕的個數(shù)生成工具欄，并對工具欄按鈕進(jìn)行初始設(shè)置。當(dāng)按鈕被點(diǎn)擊時，程序會讀取與任務(wù)相關(guān)數(shù)組中的設(shè)置進(jìn)行響應(yīng)。

三、準(zhǔn)備工作

新建文件夾“我的測試”用于存放所需的資源文件，在其下建立子文件夾“樣圖”在其中放入八張任務(wù)模板樣圖（寬 200px 高 150px），分別命名為：1.jpg ……8.jpg，及其每一張的放大樣圖，分別命名為：d1.jpg……d8.jpg（寬571px高429px）；建立子文件夾“Flash幫助” 在其中放入rw1.swf……rw8.swf八個幫助動畫文件；建立子文件夾“網(wǎng)頁幫助”，在其中放入“技術(shù)參考.htm”文件。

四、具體實現(xiàn)方法

1.建立數(shù)據(jù)庫

建立access數(shù)據(jù)庫“mydb.mdb”，在其中新建一個表并命名為“任務(wù)表”，結(jié)構(gòu)如圖1所示:

圖1

“按鈕類型”、“任務(wù)標(biāo)簽”是文本型，字段大小10；“任務(wù)內(nèi)容”、“樣圖”、“放大圖”、“Flash”、“網(wǎng)頁”為文本型，字段大小為255；“提示”為備注型?？梢酝ㄟ^增加或刪除記錄來增減按鈕，但按鈕類型只能是圖中的三種，任務(wù)標(biāo)簽是顯示在按鈕上的文字可以自行設(shè)置。Flash按鈕和網(wǎng)頁按鈕可以是針對不同的任務(wù)調(diào)用不同的幫助信息，也可以是單獨(dú)調(diào)用某個幫助信息，如果是前者則只設(shè)置各任務(wù)后的相應(yīng)列即可；如果是后者則各任務(wù)后的列為空，只設(shè)置Flash和網(wǎng)頁記錄后的相應(yīng)列即可。

2.Word學(xué)習(xí)平臺的設(shè)計與實現(xiàn)

（1）新建文件名為“vba測試.doc”的文檔并保存在“我的測試”文件夾中。

（2）進(jìn)入Visual Basic編輯器（Alt＋F11）。點(diǎn)擊菜單“工具→宏→Visual Basic編輯器”。

（3）插入“模塊1”?！坝覔鬚roject（vba測試）→插入→模塊”可見在下面已經(jīng)有了“模塊1”，雙擊“模塊1”打開，在窗口的右邊就可看到打開的“模塊1”，在這里寫入編寫的程序。

（4）定義全局變量及初始化對象設(shè)置。在剛打開的“模塊1”窗口中寫入下面的程序

（5）創(chuàng)建數(shù)據(jù)庫讀取函數(shù)。接上面程序繼續(xù)寫入下面代碼。

（6）創(chuàng)建自定義工具欄。接上面程序繼續(xù)寫入下面代碼。

（7）接上面程序繼續(xù)創(chuàng)建按鈕的響應(yīng)過程。每組按鈕創(chuàng)建8個，也可更多，每個按鈕設(shè)置方法相同，不贅述。

（8）創(chuàng)建用于顯示的窗體。

①插入“任務(wù)顯示”窗體?！坝覔鬚roject(vba測試)→插入→用戶窗體”，可見“UserForm1”窗體，在下方的屬性窗口將“名稱”改成“任務(wù)顯示”、“caption”改成“任務(wù)顯示”、“Tag”改成“nochoice”、“Height”設(shè)為317“Width”設(shè)為 187。

打開工具箱，在窗體上從上至下依次添加“圖像”控件，“名稱”改為“image”、“Height”設(shè)為 124“Width”設(shè)為178；“標(biāo)簽”控件，“caption”改為“操作要求”；“文字框”控件，“名稱”改為“textrw”、“Height”設(shè)為40“Width”設(shè)為 180；“標(biāo)簽”控件，“caption”改為“操作提示”；“文字框” 控件，“名稱” 改為 “textts”、“Height”設(shè)為 92“Width”設(shè)為 180。

雙擊“image”控件進(jìn)入代碼窗口，寫入下面代碼：

這段代碼的作用是：當(dāng)點(diǎn)擊“image”控件時可以顯示“放大圖”窗體。

②插入“放大圖”窗體。將“名稱”改成“放大圖”、“caption”改成“放大圖”。打開工具箱，在窗體上添加“圖像”控件，“名稱”改為“image1”，“Height”設(shè)為336、“Width”設(shè)為 440。

③插入“Flash幫助”窗體。將“名稱”改成“flash幫助”、“caption”改成“操作訓(xùn)練幫助”。

打開工具箱，在“控件”頁空白處點(diǎn)右鍵打開快捷菜單，點(diǎn)擊“附加控件”找到“Shockwave Flash Object”在前面的小方框中點(diǎn)擊，點(diǎn)擊“確定”。在“控件”頁上會出現(xiàn)剛添加的flash控件，將Flash控件添加到窗體，“名稱”改為“Flash”；“Height”設(shè)為 600、“Width”設(shè)為 800。

④插入“網(wǎng)頁幫助”窗體。將“名稱”改成“網(wǎng)頁幫助”、“caption”改成“網(wǎng)頁幫助”。

打開工具箱，在“控件”頁空白處點(diǎn)右鍵打開快捷菜單，點(diǎn)擊“附加控件”找到“Microsoft Web瀏覽器”在前面的小方框中點(diǎn)擊，點(diǎn)擊“確定”。在“控件”頁上會出現(xiàn)剛添加的“Web Browser”控件，將該控件添加到窗體，“名稱”改為“web”；“Height”設(shè)為 530、“Width”設(shè)為600。

（注：所有屬性的值在設(shè)置時都不要加上雙引號）

（9）工具欄的加載。

雙擊 Project(vba測試)下的 “ThisDocument”在“Document”的“Open”過程中寫入以下代碼：

Private Sub Document＿Open()

工具欄

End Sub

這樣自定義的工具欄在文檔啟動時就被加載。

（10）數(shù)據(jù)庫控件引用。點(diǎn)擊菜單“工具→引用”，在對話框中找到 “MicrosoftActiveX DataObjects2.0 Library”在前面的小方框中選中后點(diǎn)“確定”。

（11）設(shè)定宏安全級為低。

關(guān)閉VB窗口，在文檔窗口中點(diǎn)擊菜單“工具→宏→安全性→安全級→低。然后關(guān)閉word后再打開文檔。

3.excel學(xué)習(xí)平臺的設(shè)計與實現(xiàn)

excel中應(yīng)用與word中基本相同，將上述代碼略作更改。

（1） 將第4步 “初始化” 中的Set OBJDX＝Application.ActiveDocument 改 為 Set OBJDX ＝Application.ActiveWorkbook。

（2）第9步工具欄加載方法。

雙擊Project(Excel測試)下的“ThisWorkbook”在“Workbook”的“Open”過程中寫入以下代碼：

Private Sub Workbook＿Open()

工具欄

End Sub

4.PowerPoint學(xué)習(xí)平臺的設(shè)計與實現(xiàn)

PowerPoint中應(yīng)用與Word中基本相同，將上述代碼略作更改。

（1）將第4步“初始化”中的Set OBJDX ＝ Application.Active Document改 為 Set OBJDX ＝ Application.Active Presentation

（2）第9步工具欄加載方法。由于在PowerPoint中沒有“Open”過程，所以，工具欄的加載有些不同。

①在要完成作品的第一頁加入一個按鈕。點(diǎn)擊“視圖→工具欄→控件工具欄”，將命令按鈕放入頁面中，在按鈕上右擊選“屬性”，將“名稱”設(shè)為“cmd”，“caption”設(shè)定為“顯示任務(wù)欄”。雙擊按鈕進(jìn)入代碼窗口，加入下面代碼：

②加入按鈕還原功能。進(jìn)入“模塊1”代碼窗口，將下面代碼加入：

③使用方法。用“F5”或點(diǎn)擊“幻燈片放映→觀看放映”，點(diǎn)擊“顯示任務(wù)欄”按鈕即可看到加載的工具欄。工具欄加載成功后按鈕被隱藏，若要按鈕再次顯示可點(diǎn)擊“工具→宏→宏”找到“按鈕還原”運(yùn)行。

五、其他說明

（1）Flash幫助動畫可以用“adobe captivate”錄制成動畫或操作訓(xùn)練，錄制大小可以設(shè)成800×600。

（2）其它視頻幫助可以用“格式工廠”轉(zhuǎn)換為Flash。

（3）課堂反饋部分可以通過“網(wǎng)頁幫助”功能訪問用Moodle建立的試題測試。

（4）程序在 Officexp、Office2003、Office2007、Office2010上測試通過，由于Office2007后對界面進(jìn)行了大改變，所以，Office2007以后可在“加載宏”標(biāo)簽中找到自定義的工具欄。

（5）運(yùn)行截圖，如圖2所示：

圖2