余姝華

摘 要：教師一般應(yīng)用Word來(lái)命制試卷，但收集試題和排版工作量非常繁重，利用VBA在Word中的應(yīng)用，開(kāi)發(fā)一個(gè)自帶試題庫(kù)，教師可以對(duì)題庫(kù)進(jìn)行添加、修改和刪除試題等功能；并能夠?qū)λx擇的題目進(jìn)行自動(dòng)排版。教師可以高效完成一份高質(zhì)量的試卷，徹底減輕教師命制試題的工作量。

關(guān)鍵詞：Word；VBA；自動(dòng)排版

目前大多數(shù)學(xué)校、教師利用Word命制試卷，需要花費(fèi)大量的時(shí)間來(lái)收題、排版，而且排版后的試卷格式也不標(biāo)準(zhǔn)。通過(guò)VBA for Word開(kāi)發(fā)一款自帶試題庫(kù)和試卷排版功能的系統(tǒng)，教師可以

對(duì)題庫(kù)中的試題進(jìn)行添加、修改和刪除等管理，對(duì)選好的試題進(jìn)行自動(dòng)排版，生成標(biāo)準(zhǔn)的、統(tǒng)一的試卷，每位教師都可以在短時(shí)間內(nèi)高效地完成一份高質(zhì)量的試卷。

一、試卷結(jié)構(gòu)分析

以語(yǔ)文試卷為例，紙型為A3，方向?yàn)闄M向，版面分左右兩欄，左邊最上面一般為一級(jí)標(biāo)題并居中顯示某次語(yǔ)文考試試卷。試卷正文大致包括：基礎(chǔ)知識(shí)、現(xiàn)代文、文言文和寫(xiě)作四大塊內(nèi)容?；A(chǔ)知識(shí)部分主要是：選擇和填空，在試卷排版中題目需要左縮；現(xiàn)代文部分主要包含：正文內(nèi)容和正文后的習(xí)題，正文內(nèi)容標(biāo)題需要居中，正文首行縮進(jìn)2個(gè)字符；文言文部分的排版和現(xiàn)代文基本相同；寫(xiě)作部分排版比較麻煩的是作文格子的編排，它是上下行之間要空開(kāi)一行的表格。

二、系統(tǒng)功能模塊分析

本系統(tǒng)主要有三大功能模塊：添加試題、修改試題（包括修改和刪除）和試卷自動(dòng)生成。數(shù)據(jù)庫(kù)采用Access，主要考慮它移植方便、便于管理。試題存放在數(shù)據(jù)庫(kù)中，在對(duì)大量試卷分析時(shí)發(fā)現(xiàn)，一個(gè)大題中有若干個(gè)小題，而每個(gè)大題所含的小題數(shù)都是不同的，所以在設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)采用了多表并建立關(guān)系。

三、系統(tǒng)功能的實(shí)現(xiàn)

1.添加試題

在系統(tǒng)設(shè)計(jì)需求分析中考慮到教師在命制試卷時(shí)，收集試題耗時(shí)，試題的保密性差，所以在本系統(tǒng)中直接設(shè)計(jì)了試題庫(kù)。題庫(kù)可以對(duì)試題進(jìn)行有效地保密，因?yàn)轭}庫(kù)量很大，組卷時(shí)按條件隨機(jī)組卷，猜題押寶命中概率很小。有了題庫(kù)，可以馬上啟用備用的平行試卷，或在考試前的最后時(shí)刻隨機(jī)決定平行試卷中的一套作為正式考卷，從而達(dá)到出其不意的效果。試題庫(kù)極大地方便了實(shí)現(xiàn)計(jì)算機(jī)科學(xué)的管理（修改、增刪、試卷合理生成、瀏覽、打印等），又因試卷的隨機(jī)生成，提高了試卷的保密程度，從而進(jìn)一步提高了考試的效果，充分體現(xiàn)出考試的嚴(yán)肅性和公平性。

2.修改試題

該模塊主要實(shí)現(xiàn)兩個(gè)功能：刪除和修改。教師對(duì)該系統(tǒng)庫(kù)中的試題可以做出相應(yīng)的修改，或者對(duì)不必要的試題進(jìn)行刪除操作。

這一模塊與上面的添加試題模塊都是引用ADO連接ACCESS數(shù)據(jù)，并對(duì)數(shù)據(jù)保存、修改和刪除。

3.自動(dòng)排版并生成試卷

該模塊主要有兩塊內(nèi)容：試卷版面設(shè)置和試卷試題設(shè)置。

（1）試卷版面設(shè)置

用戶可以在“試卷紙張大小”下拉框中選擇相應(yīng)的紙型，程序中主要是通過(guò)VBA的Application對(duì)象的ActiveDocument.PageSetup.PaperSize屬性設(shè)置試卷紙張的大??；在“請(qǐng)輸入試卷大標(biāo)題”文本框中輸入將要生成試卷的標(biāo)題。比如，“2013學(xué)年第二學(xué)期九年級(jí)第一次語(yǔ)文月考”，我們?cè)诔绦蛑惺峭ㄟ^(guò)Application對(duì)象的如

下屬性實(shí)現(xiàn)：

.ActiveDocument.PageSetup.PaperSize=papType（“A3”）

‘設(shè)置試卷頁(yè)面紙型

With Selection.PageSetup.TextColumns

‘對(duì)頁(yè)面進(jìn)行分欄

.SetCount numcolumns：=2

.EvenlySpaced=True

.LineBetween=False

.Width=CentimetersToPoints（5.84）

.Spacing=CentimetersToPoints（2.96）

End With

.Selection.Style=ActiveDocument.Styles（“標(biāo)題1”）

‘設(shè)置為“標(biāo)題1”

.Selection.Font.Name=“黑體” ‘字形

.Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter

‘對(duì)標(biāo)題居中對(duì)齊

.Selection.Font.Size=18 ‘標(biāo)題字號(hào)18號(hào)

.Selection.TypeText “2013學(xué)年第二學(xué)期九年級(jí)第一次月考+Chr（10）” ‘設(shè)置一級(jí)標(biāo)題，Chr（10）為換行

（2）試卷試題設(shè)置

該模塊分為四大塊：基本知識(shí)（選擇題和填空題）、現(xiàn)代文、文言文（文言文閱讀和古詩(shī)）和寫(xiě)作。教師按照試卷的要求選擇需要的題型，在對(duì)應(yīng)題型下輸入題數(shù)，若輸入的題數(shù)大于系統(tǒng)庫(kù)中的題數(shù)，則系統(tǒng)會(huì)有相應(yīng)提示。

試題是從試題庫(kù)中隨機(jī)抽取的，并要求不能再次抽中，所以，在隨機(jī)生成函數(shù)Rnd前加上Randomize函數(shù)，這樣可以避免抽到的試題被重復(fù)抽中。

（3）試卷的卷面內(nèi)容排版

試卷的排版主要包括試卷的標(biāo)題、字體大小及段落格式等方面。這些都可以利用Application對(duì)象中的以下性能來(lái)實(shí)現(xiàn)自動(dòng)

排版。

.Selection.Style=ActiveDocument.Styles（“標(biāo)題2”）

‘設(shè)置二級(jí)標(biāo)題

.Selection.Font.Size=12

‘二級(jí)標(biāo)題字號(hào)為12號(hào)

.Selection.Font.Name=“黑體”

‘二級(jí)標(biāo)題字體為宋體

.Selection.TypeText“一、基礎(chǔ)知識(shí)”+Chr（10）

‘設(shè)置二級(jí)標(biāo)題

以上代碼主要是對(duì)二級(jí)標(biāo)題設(shè)置

.Selection.Style=ActiveDocument.Styles（“正文”）

‘設(shè)置正文

.Selection.Font.Size=10

‘設(shè)置正文字號(hào)為10號(hào)

.Selection.Font.Name=“宋體”

‘設(shè)置正文字體為宋體

With Selection.ParagraphFormat

.CharacterUnitLeftIndent=2

‘正文內(nèi)容左縮進(jìn)2字符

.CharacterUnitFirstLineIndent=-2

‘正文內(nèi)容首行懸掛-2字符

End With

.Selection.TypeText num & "、" & rs（0）。Value+Chr（10）

With Selection.ParagraphFormat

.CharacterUnitLeftIndent=4

‘正文內(nèi)容左縮進(jìn)4字符

.CharacterUnitFirstLineIndent=-2

End With

Word應(yīng)用程序是目前應(yīng)用最廣泛的排版軟件，但是大部分人只能使用它的常規(guī)功能來(lái)排版。利用VBA for Word可以實(shí)現(xiàn)繁瑣、機(jī)械的日常排版工作自動(dòng)化。用VBA擴(kuò)展功能可以完成各種高級(jí)排版功能的軟件開(kāi)發(fā)。

參考文獻(xiàn)：

[1]楊曉亮.Word VBA高效排版范例應(yīng)用[M].北京：中國(guó)青年出版社，2005.

[2]Guy Hart-Davis.VBA從入門(mén)到精通[M].第二版.北京：電子工業(yè)出版社，2008.

[3]李政，海英梁，李昊.VBA應(yīng)用基礎(chǔ)與實(shí)例教程[M].北京：國(guó)防工業(yè)出版社，2009.

[4]卓宗雄.學(xué)用VBA提高Office效率[M].北京：人民郵電出版社，1996.

[5]徐國(guó)平.VBA中文版程序設(shè)計(jì)與應(yīng)用[M].北京.清華大學(xué)出版社，1998.

|編輯 溫雪蓮