基于VBAoffice操作题自动批改技术实现.docVIP

基于VBAoffice操作题自动批改技术实现 　　摘要简要介绍如何利用VBA实现office操作题的自动批改。 　　关键词office VBA;自动批改 　　中图分类号TP3文献标识码A文章编号1673-9671-(2010)071-0019-01 　　 　　1技术基础 　　Office文档均以二进制形式存放在数据库表中的OLE对象当中,这些数据流作为文件中各块的连接列表存储在文件中,我们不能直接读出文档的细节与格式来和标准答案文档对比得出考生的分数,所以,只有从文档的结构对象出发考虑。在Microsoft Office中集成有VBA(Visual basic for Applications)标准宏语言,使用VBA编程可以对文档中各对象的属性和状态进行识别和读取,并与试题要求进行对比后自动评分。 　　2程序设计 　　2.1界定题目 　　主要是得分点和分值分布。例题题目要求如下: 　　word文本编辑(按要求顺序做题,每题5分,计20分) 　　调入A盘Text文件夹中的ed1.RTF文件,按下列要求顺序进行编辑。 　　1)文章加标题:“不间断电源的新进展”,标题居中,标题段前、段后均留空1行(word97留空12磅); 　　2)设置标题的字体为:黑体、粗体、二号、深蓝色,字符缩放150%; 　　3)文章第一段首字下沉3行,首字字体为楷体; 　　4)将全文中“UPS”(不分大小写)替换成“不间断电源”; 　　5)将编辑好的文本以文件名:done,文件类型RTF,存放于A盘KS_Answer文件夹中。 　　2.2录制宏的部分代码 　　如果用户对word的各种格式代码不太熟悉,可按题目要求操作并用宏记录操作的过程,为使用Visual Basic编程提供部分代码。 　　2.3利用Visual Basics编写批阅程序 　　1)实现按钮“开始批阅”功能的部分参考程序代码如下: 　　Private Sub cmdBEGIN_Glick() 　　On Error GoTo bad 　　ScorWORD=0 　　TxtWORD=0 　　Open pathQUESTION+”\message” For Input As #1 　　Line Input #1,studentNAME 　　Line Input#1,studentCODE 　　Close#1 　　txtNAME.Text=studentNAME 　　txtCODE.Text=studentCODE 　　scoreWORD=pdWord(N):txtWORD=scoreWORD 　　cmdSAVE.Enabled=False 　　cmdEND.Enabled=False 　　 GoTo notbad 　　 bad: 　　 MsgBox Error$, vbCritical+vbOKOnly,“出错” 　　 Notbad: 　　 End Sub 　　2)实现按钮“保存成绩”功能的部分参考程序如下: 　　Private Sub cmdSAVE_Glick() 　　 Data1.Recordset.AddNew 　　Data1.Recordset(0)=studentNAME 　　Data1.Recordset(1)=studentCODE 　　Data1.Recordset(2)=scoreWORD 　　Data1.Recordset.Uptate 　　Data1.Refresh 　　cmdBEGIN.Enabled=True 　　cmdSAVE.Enabled=False 　　cmdEND.Enabled=True 　　 End Sub 　　(3)实现Word自动阅卷模块的参考程序如下: 　　 Dim W As Word.Application 　　 Public Function pdWord(x As Integer) As Integer 　　 On Error Resume Next 　　 pdWord=5 　　 if Dir(pathANSER+”\done.rtf”,vbNormal)=””Then pdWord=0:Exit Fuction 　　 Set W=CreateObject(“word.application”) 　　 W.Documents.Open(pathANSER+”\done.rtf”) 　　 W.Visible=Not True 　　 pdWord=pdWord+IIf(InStr(W.Documents(1).Range(),“不间断电源的新进展”)0 　　And W.Documents(1)Paragraphs(1).Alig