遍歷Word窗體域?qū)崿F(xiàn)過程性考核

1、遍歷Word窗體域?qū)崿F(xiàn)過程性考核為了積極響應(yīng)國家對職業(yè)教育改革的方針政策， 適應(yīng)技術(shù)進(jìn)步和生產(chǎn)方式變革以及社會公共服務(wù)的需要， 教育廳和高等院校越來越重視形成性考核的重要性，如2015 年山東省專升本工作通知中明確要求各高職院校要建立過程性考核辦法并研究制定過程性評價的使用方法，同時指出自2016 年起要求考生畢業(yè)學(xué)校提供過程性評價電子檔案數(shù)據(jù)。 因此， 加強對高職教育課程形成性考核方式的探討和研究， 對于職業(yè)教育改革具有很大的指導(dǎo)意義。本文以 Word2007為例，應(yīng)用窗體域、文檔保護(hù)和VBA等多種技術(shù)實現(xiàn)了上機(jī)實踐課的隨堂考核， 不但可以跟蹤學(xué)生課堂的學(xué)習(xí)狀況，而且能夠培養(yǎng)學(xué)生的團(tuán)隊精神。

2、1 試卷的制作圖 1 下拉型窗體域選項圖圖 2 下拉型窗體域選項為了方便學(xué)生使用下拉型窗體域進(jìn)行題項的選擇， 通常會在窗體域選項對話框中添加如圖 1 所示的說明項， 以便學(xué)生理解做題方式。與傳統(tǒng)紙質(zhì)版試卷一樣，在Word試卷前面文本域，讓學(xué)生填寫自己的信息， 便可直接從試卷中獲取學(xué)生信息、 答題結(jié)果并生成成績單。最后得到的試卷效果見上圖 2 所示。試卷的保護(hù)在使用Word制作的普通電子試卷中，讓學(xué)生將結(jié)果寫入到答題位置，難免有些學(xué)生會有意或無意地去改動和復(fù)制試卷內(nèi)容。 例如計算機(jī)程序基礎(chǔ)試卷考查學(xué)生程序運行結(jié)果等類似的問題時，學(xué)生就會直接復(fù)制試卷中程序代碼到軟件中運行得到結(jié)果，這樣就失去了考核

3、的意義。圖 4 啟動強制保護(hù)評分方法微軟提供的VBA語言和Word對象，使得Word能夠?qū)崿F(xiàn)文檔自動化，進(jìn)行計算機(jī)隨堂試卷的評閱。本文主要用到的是FormFields 集合對象， 該對象可以用 FormFields （ index ） 可返回單個的 FormField 對象，其中 index 是書簽名稱或索引序號。通過VBA遍歷試卷中的窗體域 FormField對象的Result屬 性，即可獲取學(xué)生答題結(jié)果，并參照答案給出成績。為了實現(xiàn)簡化代碼并實現(xiàn)模塊的重用性， 首先自定義試卷結(jié)構(gòu)類型 StPaper ，并設(shè)置數(shù)組默認(rèn)下標(biāo)從1 開始，據(jù)此給出如下獲取參考答案和評分的實現(xiàn)過程。Type StP

4、aperStC As IntegerPAn（ ） As StringPVal （ ） As IntegerEnd TypeSub GetAns （ ByRef Stp As StPaper ， ByVal Fdoc As Document）Dim t （2） As Integer ， x As Integert （ 1） = InputBox （第一題：選擇題的數(shù)量 ， ， 70）x = InputBox （每題分值： ， 1 ）t（2） = InputBox （第二題： 填空題空的數(shù)量： ， ， 15 ）Stp.StC = t （1） + t （2）ReDim Stp.PAn （ Stp.S

5、tC ）， Stp.PVal （ Stp.StC ）For i = 1 To t （ 1）Stp.PVal （ i ） = xNextx = InputBox （每空分值： ， 2 ）For i = t （1） + 1 To Stp.StCStp.PVal （ i ） = xNextFor i = 5 To Stp.StCStp.PAn （ i ） = Fdoc.FormFields （ i ） .Result ）NextEnd SubSub GetScore （ ） 要求學(xué)生試卷和教師參考試卷放在同一目錄下Dim TeaAns As StPaper ， MyDoc As DocumentDi

6、m score As Integer ， myfile As String ， st As StringOpen px.csv For Output As #1Print #1 ， 學(xué)號，姓名，班級，院系，成績 會自動根據(jù)英文逗號“，”分列GetAns TeaAns， ActiveDocument 打開教師所答試卷運行隨堂評分程序 myfile = Dir （ ActiveDocument.Path & *.doc）While myfile myfile = Dir ： Application.Documents.Open （ myfile ）If MyDoc.FormFields.Count

7、 = TeaAns.StC Thenst = MyDoc.FormFields （1 ） .ResultFor i = 2 To 4st = st + ， + MyDoc.FormFields （ i ） .ResultNextscore = 0For i = 5 To TeaAns.StCIf TeaAns.PAn（ i - 4） = MyDoc.FormFields （ i ） .ResultThen score = score + TeaAns.PVal （ i - 4 ）Nextst = st & score ： Print #1， st 自動根據(jù)英文逗號“， ” 分列End IfWe

8、ndClose #1End Sub測評工具欄通過直接運行上述VBA宏代碼進(jìn)行考核評分，不但步驟繁瑣，而且操作也是很不方便。若是用VBA提供的Toolbar控件將上述功能做成工具欄形式，將會簡化操作步驟，提高工作效率。Toolbar 控件包含一個Button 對象集合， 該對象被用來創(chuàng)建與應(yīng)用程序相關(guān)聯(lián)的工具欄。 為了實現(xiàn)如圖 5 所示的工具欄， 需要將考核評分功能和 Toolbar 控件結(jié)合在一起，主要參考代碼如下：Sub PaperToolbar （）Dim arr ， id ， i As Integer ， Toolbar As CommandBarApplicationmandBars

9、（ MyToolbar ） .Deletearr = Array （ 獲取標(biāo)準(zhǔn)答案 ， 獲取學(xué)生成績 ）： id =Array （ 9893， 9590）Set Toolbar = ApplicationmandBars.Add （ 隨堂考核測評 ， msoBarFloating ）With Toolbar.Protection = msoBarNoResize.Visible = TrueWith .Controls.Add （ Type： =msoControlButton ）.Caption = arr （ 0）.FaceId = id（ 0）.OnAction = GetAns.Caption = arr （ 1）.FaceId = id （ 1）.OnAction =GetScoreEnd WithNextEnd WithSet Toolbar = NothingEnd Sub最后，為了讓W(xué)ord 啟動時自動加載考核評分工具欄，可以將宏 P