Wr操作题自动阅卷方案.docVIP

提出了利用VBA技术，使用Visual Basic 进行程序设计，从Word文档中提取测试内容相关的 属性与测试要求相比较，判断操作是否正确并增减分 数，从而实现Word操作题的自动阅卷方案，并给出 了部分算法。 关键词：VBA；自动阅卷；office;属性；评分 TP311.52 A 1672?7800 (2011) 012?0054?02 付海涛(1976-)，男，吉林长春人，吉 林农业大学讲师，研究方向为计算机应用及计算机教 育。 0引言 随着当今社会办公自动化程度的不断提高，计算 机应用技能在教学与工作活动中成为不可或缺的技能 之一。在高等农业院校教学活动中《大学计算机基础》 已经成为公共课程之一，占有重要的地位。其中Word 字处理软件，是主要教学重点，Word字处理软件的操 作也是计算机技能考核的主要内容。 由于Word软件本身功能强大、内容丰富，加上 软件操作类知识点并不适合使用传统的试卷形式进行 考试，所以，多数考核部门选择让考生使用计算机完 成操作类考试。那么如何准确、快速、高效地衡量被 测试人员对Word的掌握程度，是教学人员亟待解决 的问题。 本文主要论述了一种利用VBA技术，对考生提交 的Word文件进行快速准确的进行阅卷的可行性方案。 1自动阅卷系统的思路分析 在考试过程中，操作题主要检查考生的实际应用 能力。通常是给出一篇Word文档并提出若干要求， 考生按照要求利用Word软件进行排版并保存为Word 文档，之后提交所做的文件。阅卷人负责检查考生提 交的文件并判断是否符合要求。 由于Word文件的结构并没有使用头加内容的存 储方式，而是采用了对象数据流的方式进行存储，文 件内部包含了主数据流、表数据流、非文本数据流、 等信息，文件结构非常复杂。很难通过外部获取 的方式获得可靠的数据结构。 实际上，Office是基于部件模型技术（COM技术） 的软件，这使其具有了 COM自动化的功能。事实上， Office中集成了标准宏语言(VBA)提供了访问Office文 件的接口。以Word2003文件为例，其包含的表格、 片、页面、格式等等无一例外的都属于VBA对象， 这就为在VBA程序中使用这些对象的属性和方法，实 现自动化操作奠定了基础。 编写自动阅卷系统的思路就是：通过VBA编程调 用Word2003文档中与题目相关的对象，提取其属性 值。并将提取的结果与实际的要求做比对，从而精确 的判断出考生的操作是否正确，并给出相应的成绩。 2自动阅卷系统的实现方法 自动阅卷系统的开发可以选用VB6.0 (Visual Basic 6.0)作为开发工具，VB6.0对于Office中的标准 宏语言(VBA)有着良好的支持，具有面向对象、界 面设计简单、开发速度快、易于调试等优点。具体方 法如下： 在 VB6.0 工程中引入 “Microsoft Word 11.0 Object Library对象库，主要目的为在编程过程中查 看该库的对象及其所有的属性和方法，实现快速引用 对象和程序优化。在0ffice2000中该库为9.0版本， 在Office97中版本为8.0。 定义文档对象和应用程序对象，并打开相关 文档。 Dim ApplicationWord As Word.Application Dim DocumantWord As Word.Document Set ApplicationWord = New Word.Application Set DocumantWord = ApplicationWord.Document.Open) “路径\文件名”) 获取Word文档中的相关属性。 属性的获取是整个自动阅卷系统中最总要的信息 能否正确阅卷取决于能否取得相关的属性值。在 Word2003中常用的对象包括有：页面格式—— PageSetup、段落格式 Paragraphs、查找与替换 Hnd、表格格式 Tables、图片与绘图 Shapes、 文本格式——Range等等。编程过程中可以通过这些 对象获取其需要的属性，来做判断。例如：①获取页 面上边距：Tmargin = PageSetup.TopMargin；②获取第 一段文字的颜色：Ctext = Paragraphs(l).Font.Color； ? 获取表格的行数： Rcount=DocumantWord.Tables(l).Rows.Count。将属性 取出后，与正确的值做比较判断据此可以得出考生操 作的结果是否正确，从而进行成绩的增减，并最终给 出分数。设置纸张左边距为2cm的评分(1cm约等于 28.35磅)示例程序如下： Then 1左边距判断 etext = etext + “左边距设置错误。”给出错误信息 score = scor