基于VBA技術(shù)的一鍵試卷模板生成系統(tǒng)的設(shè)計與實現(xiàn)

王 超

（臨泉縣委黨校，安徽臨泉236400）

0 引言

MSWord是當(dāng)今流行的電子文檔編輯、排版軟件之一，已成為辦公人員的得力助手，被廣泛應(yīng)用于社會的各個領(lǐng)域。筆試應(yīng)用于各行各業(yè)，在教育教學(xué)領(lǐng)域最為頻繁，出卷任務(wù)是教師例行之事。現(xiàn)階段很多學(xué)校由于沒有現(xiàn)成的統(tǒng)一試卷模板格式，導(dǎo)致卷面設(shè)計一個教師一種版式，一輪考試下來，出現(xiàn)了各式各樣的卷面樣式，有失考試的嚴(yán)肅性和規(guī)范性，同時在格式設(shè)計和排版上也花費教師大量的時間和精力。這就需要一款能夠設(shè)計出一套統(tǒng)一、規(guī)范、標(biāo)準(zhǔn)的試卷模板格式的軟件系統(tǒng)來解決這一問題。

1 研究試卷模板生成系統(tǒng)的意義

試卷模板是具有統(tǒng)一格式、一定相同內(nèi)容的試卷樣式。在Word中，利用VBA技術(shù)的處理能力自動實現(xiàn)試卷模板生成系統(tǒng)的意義在于卷面格式的統(tǒng)一、標(biāo)準(zhǔn)、規(guī)范，可以快速高效地生成試卷。在同一部門、同一所學(xué)校出卷時同時使用該系統(tǒng)，不僅使卷面格式統(tǒng)一，設(shè)計規(guī)范，還能美化卷面?，F(xiàn)階段，教師完成一套出卷任務(wù)，快者1-2小時，慢者則需要數(shù)小時，僅在卷面格式設(shè)計和排版方面就要花很多時間，而利用研究的試卷模板生成系統(tǒng)能在4秒內(nèi)完成模板設(shè)計，即使加上部分內(nèi)容的修改及試題填充，最遲也能在15分鐘內(nèi)呈現(xiàn)出一套規(guī)范的，標(biāo)準(zhǔn)的，完整的試卷，大大減輕教師出卷的壓力，提高出卷效率。它與自動排版系統(tǒng)的區(qū)別在于先生成模板，后套用模板格式；優(yōu)點在于設(shè)計更加規(guī)范，格式更加統(tǒng)一，卷面更加美觀，操作更加便捷，完成更加高效。

2 關(guān)鍵技術(shù)VBA的應(yīng)用

Visual Basic for Applications，簡稱 VBA，依托微軟Windows系統(tǒng)的應(yīng)用程序（如MSOffice）為平臺，對其進行二次開發(fā)以便擴展其功能，同時也是其自帶內(nèi)嵌的功能研發(fā)平臺。VBA一旦脫離該平臺就無法運行，實現(xiàn)不了其功能，發(fā)揮不了其作用，就失去它存在的價值和意義。在MSOffice中，VBA提供了大量訪問對象（如頁面設(shè)置PageSetup、表格設(shè)置Tables、段落設(shè)置Paragraph、字體設(shè)置Font等），由于它具有強大的對象控制能力，功能的擴展及定制能力，突破了MSOffice的自身極限，完成MSOffice本身無法完成的功能[1]。通過對這些對象的屬性設(shè)置、方法使用和事件驅(qū)動，實現(xiàn)對微軟Word 2010的再次開發(fā)，自動完成對文檔的一系列操作，從而實現(xiàn)一鍵試卷模板生成的功能。

3 系統(tǒng)的設(shè)計分析與實現(xiàn)

基于VBA技術(shù)的試卷模板生成系統(tǒng)的設(shè)計與實現(xiàn)是以Word 2010為平臺（MSOffice具有強大的通用性和兼容性，Word 2000以上版本都可以使用VBA技術(shù)，目前大多數(shù)用戶選擇安裝MSOffice 2010，就以此版本為例）。首先在電腦中安裝Word 2010軟件，然后通過創(chuàng)建宏的方式編寫VBA代碼，最后實現(xiàn)一鍵試卷模板系統(tǒng)生成。為進一步推廣使用該系統(tǒng)，可以將實現(xiàn)該功能的VBA程序代碼保存起來，粘貼到所需電腦Word軟件的宏里。會運行宏就會使用它，操作簡單，使用方便，無需對使用者進行任何操作培訓(xùn)。簡便易行的操作方式能讓教師在很短的時間內(nèi)設(shè)計出優(yōu)秀的試卷模板格式。

根據(jù)試卷模板格式設(shè)置步驟和方式，試卷模板生成系統(tǒng)的主模塊分成六個子模塊來實現(xiàn)（如圖1所示）。每個子模塊完成其各自的功能，這樣設(shè)計的目的是使系統(tǒng)層次清晰，增強系統(tǒng)可讀性；每個功能模塊不僅功能獨立，減少交叉及代碼重復(fù)，還有利于程序重復(fù)調(diào)用[2]。該系統(tǒng)采用自定義快捷鍵、自定義選項卡及添加到快速訪問工具欄等方式來解決一鍵實現(xiàn)試卷模板生成問題。

圖1 系統(tǒng)模塊設(shè)計結(jié)構(gòu)圖

3.1 卷面屬性設(shè)置模塊

卷面設(shè)置模塊主要設(shè)置卷面紙張大小，頁邊距及版式等。按照試卷常規(guī)設(shè)計具體參數(shù)：紙張A3；上下左右邊距分別為2 cm，2 cm，4.4 cm，1.8 cm；奇偶頁的頁眉頁腳各不相同；每個頁面分兩欄；多頁時采用“對稱頁邊距”；為了實現(xiàn)卷面屬性設(shè)置的自動化，需要調(diào)用PageSetup對象。為了更好的卷面布局設(shè)計，利用TableGridlines設(shè)置表格虛框線的顯示。由于厘米轉(zhuǎn)換函數(shù)“Centimeter?sToPoints”在代碼編寫中需要輸入若干次，為了減少字符數(shù)量，重新定義一個函數(shù)“CTP”來取代“CentimetersToPoints”。利用VBA技術(shù)，實現(xiàn)自動卷面屬性設(shè)置程序如下：

3.2 外裝訂線設(shè)置模塊

外裝訂線位于奇數(shù)頁卷面的左側(cè)，左邊距位置。將卷面左邊距設(shè)置為4.4 cm，是為了在此位置設(shè)計卷面的裝底線。該位置除了有裝訂線的標(biāo)志外，還有考生需要填寫的個人相關(guān)信息（以學(xué)校為例，如學(xué)校、姓名、班級、考號等）。為了編輯試卷內(nèi)容時裝訂線不受影響，將裝訂線以頁眉內(nèi)容的方式添加。裝訂線共有3個文本框組成（如圖2所示），上起第一個為外裝訂線的外邊緣欄，第二個為考生信息欄，第三個為裝訂線的內(nèi)邊緣欄。在該模塊中用到對象TextFrame設(shè)置文本框?qū)傩?，Shapes及AddTextbox來創(chuàng)建文本框。由于系統(tǒng)中要多次清除頁眉或頁腳，在此模塊中自定義了一個函數(shù)“Clear_HeaderFooter”。

圖2 外裝訂線設(shè)置效果圖

利用VBA技術(shù)，實現(xiàn)自動外裝訂線設(shè)置的程序如下：

3.3 內(nèi)裝訂線設(shè)置模塊

內(nèi)裝訂線位于偶數(shù)頁卷面的右側(cè)，右邊距位置。在卷面屬性設(shè)置程序中，用“MirrorMargins=True”來設(shè)置“多頁對稱頁邊距”，與外裝訂線卷面形成對稱，試卷正反打印時為同一位置。內(nèi)裝訂線的第二個文本框不再是考生信息欄，而是提醒信息欄，讓考生書寫時不要越過內(nèi)邊緣裝訂線。由于內(nèi)裝訂線設(shè)置在偶數(shù)頁頁眉中，當(dāng)設(shè)置內(nèi)裝訂線時，先確保卷面頁數(shù)至少是兩頁，否則激活不了偶數(shù)頁頁眉，實現(xiàn)不了內(nèi)裝訂線設(shè)置。在程序開始部分利用BuiltInDocumentProperties(wdProper?tyPages).Value來判斷卷面頁數(shù)，少于2時插入一個分頁符，形成兩個頁面。在內(nèi)裝訂線設(shè)置完成返回主文檔之后，再調(diào)用子程序“Clear_Char”，清除文檔中的分頁符和空段落。

利用VBA技術(shù)，實現(xiàn)自動內(nèi)裝訂線設(shè)置的程序如下：

3.4 頁碼設(shè)置模塊

頁碼顯示在卷面的下方，頁面的頁腳位置。因為卷面是A3紙張并分為兩欄，所以用“◎”作為兩欄的分界符。在分界符左邊居中位置插入域“PAGES*2-1”和“SECTIONPAGES*2”，獲取左邊（奇數(shù)頁）頁碼和本節(jié)總頁碼，在右邊插入域“PAG?ES*2”和“SECTIONPAGES*2”，獲取右邊（偶數(shù)頁）頁碼和本節(jié)總頁碼。通過程序運行后，在卷面的首頁分界符左邊頁碼顯示“第1頁共2頁”，右邊顯示“第2頁共2頁”。

利用VBA技術(shù)，實現(xiàn)自動頁碼設(shè)置的程序如下：

3.5 卷頭內(nèi)容設(shè)置模塊

卷頭內(nèi)容設(shè)置模塊主要是在試卷的開頭部分設(shè)置通用信息（如圖3所示）。試卷生成后，教師可以根據(jù)實際情況，進行信息的修改。在此模塊中自定義了一個函數(shù)“Font_Setup”和子程序“Move_Down”?！癋ont_Setup”的作用是設(shè)置不同的字體，字號，字形等信息。“Move_Down”的作用是另起一行，從下一行的行首開始。

圖3 卷首內(nèi)容設(shè)置效果圖

利用VBA技術(shù)，實現(xiàn)自動生成試卷開頭內(nèi)容的程序如下：

3.6 試題類型設(shè)置模塊

常見的考題類型有選擇題、填空題、問答題等。試題類型設(shè)置模塊功能是以表格的形式自動設(shè)計出這些常見的考題類型。為滿足其他題型的需要，最后還設(shè)計一個自定義考題類型，教師可以利用復(fù)制粘貼的功能設(shè)計更多的題型。各題型除內(nèi)容不同外，其格式一致，由于反復(fù)調(diào)用，創(chuàng)建了自定義函數(shù)“Question_Type_Setup”。通過該模塊的主程序“Question_Type”多次調(diào)用“Ques?tion_Type_Setup”來設(shè)計選擇題，填空題，問答題等。在自定義函數(shù)“Question_Type_Setup”中，主要是創(chuàng)建三個表格（如圖4所示）。

圖4 選擇題設(shè)計效果圖

利用VBA技術(shù)，實現(xiàn)自動生成試題類型的程序如下：

3.7 生成試卷模板系統(tǒng)的主程序

主程序包含六個子模塊，按照試卷模板設(shè)計的先后順序依次調(diào)用。教師在出卷之前，只需運行該系統(tǒng)的主程序“試卷模板生成系統(tǒng)”，程序會按照先后順序自動運行，一套統(tǒng)一、規(guī)范、標(biāo)準(zhǔn)的試卷模板格式就呈現(xiàn)在眼前。

利用VBA技術(shù)，實現(xiàn)自動生成試卷模板系統(tǒng)的程序如下：

3.8 卷面編輯

運行“試卷模板生成系統(tǒng)”生成試卷模板后，教師利用刪除、復(fù)制粘貼的功能，先確定題數(shù)及類型，然后在相應(yīng)類型試題框內(nèi)輸入考題，修改試題分值及說明信息、卷頭信息，一套規(guī)范、標(biāo)準(zhǔn)的試卷就呈現(xiàn)出來。

3.9 一鍵生成試卷模板的實現(xiàn)

為進一步簡化操作步驟實現(xiàn)一鍵生成試卷模板，可以將“試卷模板生成系統(tǒng)”命令置于在Word窗口的最顯眼、最易操作的地方[3]。

方法一：添加到快速訪問工具欄

快速訪問工具欄位于Word功能區(qū)上方，運行菜單“文件∕選項∕快速訪問工具欄”從下拉列表中選擇“宏”，找到“Normal.NewMacros.試卷模板生成系統(tǒng)”，點擊右側(cè)的“添加”按鈕后，通過下方的“修改”命令，將其標(biāo)簽更改為“試卷模板生成系統(tǒng)”，將其圖標(biāo)更改自己喜歡的符號。

方法二：添加到自定義選項卡

運行菜單“文件∕選項∕自定義功能區(qū)”在對話框右側(cè)“自定義功能區(qū)”下拉列表中，選擇“主選項卡”，在“開發(fā)工具”下面，通過“新建選項卡”命令按鈕添加“新建選項卡”，命名為“出卷”，將其下面的“新建組”命名為“試卷模板”，并選中；在對話框左側(cè)“從下列位置選擇命令”的下拉列表中選中“宏”，從文件名中找到“Normal.NewMacros.試卷模板生成系統(tǒng)”宏，單擊右側(cè)“添加”按鈕完成添加，再單擊“重命名”按鈕，將“Normal.NewMacros.試卷模板生成系統(tǒng)”改成“試卷模板生成系統(tǒng)”，同時也可以更改其默認(rèn)的圖標(biāo)符號。操作完成后，在“出卷”選項卡“試卷模板”組中，就可以看到“試卷模板生成系統(tǒng)”（如圖5所示）。

圖5 自定義選項卡設(shè)置圖

方法三：自定義快捷鍵方式

運行菜單“文件∕選項∕自定義功能區(qū)”在“鍵盤快捷方式”的右側(cè)有個“自定義”按鈕，打開“自定義”對話框，在類別列表中選擇“宏”，并在其右側(cè)列表框中選擇“試卷模板生成系統(tǒng)”，點擊下方“請按新快捷鍵”，定義一個快捷鍵（如：F4），點擊“指定”命令，在“當(dāng)前快捷鍵”欄，就看到F4了，最后關(guān)閉對話框。今后需要出卷時，僅需按一次F4鍵，4秒內(nèi)就能自動生成試卷模板。

4 結(jié)論

研究環(huán)境以Word2010為平臺，利用其嵌入的VBA編程語言，開發(fā)出自動生成試卷模板功能的系統(tǒng)。在同一部門、同一所學(xué)校同時使用該系統(tǒng)進行出卷，不僅使卷面格式統(tǒng)一，設(shè)計規(guī)范，還能美化卷面，強化考試的嚴(yán)肅性。該系統(tǒng)大大減輕教師出卷的壓力，減少工作量和出錯率，提高出卷效率。該系統(tǒng)生成的是一套通用的試卷模板，不僅適用于使用最為頻繁的教育教學(xué)場所的學(xué)校，將外裝訂線考生信息欄的“學(xué)校”改為“單位”或其他名稱，還適用于各行各業(yè)的筆試出卷。由于VBA編程語言嵌入在MSOffice 2000軟件以上各個版本中，編寫的程序之間相互兼容，因此在Word2010平臺研發(fā)的該系統(tǒng)也可以在其他各個版本上運行，達到同樣的目的。在Office辦公軟件中，VBA具有強大命令擴展功能。為滿足日常工作的需要，減少重復(fù)操作，降低工作強度，結(jié)合工作實際，可以研發(fā)出更為復(fù)雜、高級的文檔自動化處理程序。