摘要：该文从VBA出发，研究Office文档的对象层次模型，并以此为理论基础。对判据生成和自动评分两个过程给出了详细的论述，实现了Office操作题的自动评分，并提高了评分的效率和准确率。

关键词：自动评分；Office；VBA

中图分类号：TP317文献标识码：A文章编号：1009-3044(2012)17-4141-02

Analysis and Implementation of the Automatic Marking for Office Operation

ZHU Yun-xia

(Electronic Information Vocational Technology College,Tianjin 300350,China)

Abstract: This article begings with VBA,studies the hierarchical structures of Office and explores the theoretical basis of automatic grading algorithm.At the same time, the author has explained the conception of criterion table used in poeration ability test and the algorithm of automatic marking. Then, it realizes the Office operation topic to comment automatically reads, enhances efficiency and accuracy of the marking method.

Key words: automatic marking; Office; VBA

针对办公软件的操作考核在中学的会考、本科高职中职的课程考核、计算机信息类取证考试、以及职称考试中都普遍存在，如果采用人工阅卷的方式，一方面工作量大、周期长、阅卷成本很大，另一方面由于主观方面的因素，各阅卷人无法保证统一的扣分标准，难免会有出入；如果以录屏的方法进行比对，又无法体现办公软件操作的多样性。在这里，该文主要探讨使用最为广泛的办公软件——微软Office操作题的自动评分的实现。

1自动评分方法的分析

和人工阅卷总体的过程一致，自动评分过程也需要比较标准答案文件和考生提交的文件，显然这就需要对电子格式的Office文档进行分析。由于微软并没有公开Office的技术细节，我们无法直接访问文档中的数据，也就无法直接进行文档比较，这就需要借助VBA[1]。

1.1 VBA原理分析

VBA是由微软提供的、包含在Office各组件中的、增强其自动化能力的一种宏语言。一方面，在VBA中使用对象来描述Office文档中的各类数据，这些对象构成一个严格的对象层次模型，各层级之间是父对象和子对象之间的关系，具有面向对象的特征。最顶层的Application对象即为对应的应用程序，如Word.Application表示word程序，子对象Document指一个具体文档(一个word文件等)，还有下一级子对象如Section对象、Paragraph对象、Shape对象等等[2]；另一方面，VBA中各级对象都有大量的属性和方法，通过这些属性和方法，我们可以对Office文档进行各种操作和设置，比如Shape对象中的HorizontalFlip属性可以获取指定图形是否水平翻转过、Range对象中的Text属性可以获取一个连续范围内的文本。依据这些对象及其属性、方法我们就可以对指定的文档进行比对，从而完成自动评分。

1.2自动评分方法分析

操作题自动评分过程总体可以分成两个步骤：给出操作题的评分点，然后根据评分点比较考生文件和标准文件。后一步骤很好理解，现在许多此类操作题的自动评分都采用这种比对方法，即借助VBA获取两个文档的对象及相关属性值进行详细比较，如果两种文档的属性值设置相同则给分否则则不给分；但如果直接比较的话，考生的某些不相干操作也会因为比对结果的不同造成扣分[3]。该文在进行自动评分之时将考核知识点引入比较过程中，教师在出题时将会形成两个文档，一个为题目原始文档，一个为标准答案文档，对于这样的两个文档根据题目考核知识点进行比较，将会得到两个文档间的那些属性值设置不同的对象，我们将此称之为“判据”，也就是评分中的评分点。

2自动评分依据——判据表的产生

首先，分析对Office考核的具体要求，根据前述的VBA中的Office层次结构模型，将考点进行分类。比如对常规的Word操作考核一般可分为页面设置、段落设置、文本设置、图形操作和表格操作五大类。每一大类中又包含多个属性，如Word中的图形操作中含有填充颜色、线条颜色、线型、阴影样式、自选图形样式、艺术字等等属性。这样就可以有针对性地访问考点中涉及的对象及其属性，为产生判据奠定基础。

其次，依据前述的考核知识点划分来产生判据。利用VBA打开两个文档——操作之前的原始文件和标准答案文件，根据题目的考核知识点，有针对性地自顶层对象遍历考点中涉及的子对象及其属性，比较两者之间的不同属性值，记录其路径，即“父对象.子对象.….子对象.属性”，统计其个数。待两文件比较完成之后，将该题的总分值除以不同对象、属性值的个数，得到每一个考核点的分值。

最后，生成判据文件。上步比较完成之后，将不同处的属性路径和分值按行写入一个以题号作为文件名的文该文件，该文件的每一行是一条判据——以属性路径和分值分别构成两个字符串来组成。

如题目要求为：“设置Word文档中的第一个表格第一列的列宽为1厘米；设置外边框线线形为双实线；设置内边框线线宽为1磅。”此操作题总分值为3分。从题目中可以看出此题的考核知识点为Word文档表格处理中的表格列宽和表格边框。因此在形成判据表时根据考核知识点比较题目原始文档和标准答案文档中的指定表格对象(Tables)中的列对象(Columns)和边框对象(Bor? ders)相关属性值，然后形成判据表，如下所示：

"[Tables(1).Columns(1).Width]"," 1"

"[Tables(1).Borders.OutsideLineStyle]"," 1"

"[Tables(1).Borders.InsideLineWidth]"," 1"

从上述评分表中可以看到，此题的评分点有3个，分别是列宽的设置和外边框线线型以及内边框线线宽设置，每个评分点的小分值为1。至此，评分之前所需的准备工作已经完成。

3自动评分算法的实现

在评分之前需对考生文件作预处理。如自动评分过程需要对文档段落定位，如果考生考试过程随意敲击回车，势必造成段落数增加，从而无法正确定位段落。因此在开始阶段需要逐段检查标准文档和考生文档，去除空段落，以增加评分的准确性。

下面以上述判据为例说明自动评分的实现过程。

首先根据题号打开考生文档和标准答案文档，同时打开判据表，判断判据表中是否读取到最后一条判据，如果没有到最后一条判据，则作下列操作。

读出判据文本中的第一条判据，如"[Tables(1).Columns(1).Width]"," 1"，从判据中获取评分点中的核心操作即文档中第一个表格的第一列列宽设置；然后逐层定位考生文档和标准答案文档中的指定对象(ActiveDocument.Tables.Columns)，获取两种文档中的对应的子对象(即表格第一列列宽)属性值，将两个属性值加以比较，若相同则考生列宽设置正确，累加得分1，若不同则考生列宽设置不正确，不做累加分值处理。用VB实现代码如下：

Set a = WordQuest.ActiveDocument.Tables(iPos)

Set b = WordAnswer.ActiveDocument.Tables(iPos)

If SingleEqual(a.Columns.Width, b.Columns.Width) Then code = 1

End If

依次读取判据表中的每一条判据，对每一条判据均完成上述判分过程，直到判据读取到最后一条，计算并存储考生得分，关闭打开的所有文档，自动评分结束。

4结束语

Office办公软件结构复杂，我们只能借助VBA技术中提供的Office文档属性和方法来访问，判断和设定其属性值。对Office操作题的自动评分实际上主要就是两组文档的比对过程：一组是原始文件和标准答案文件之间的比对，比对的结果是产生判据文件；另一组是标准答案文件和考生文件之间的比对，结合判据，累加分值，从而得到评分。

依据该算法开发的天津市高职高专计算机应用能力考试系统已多次应用，实践证明该算法所得的评分比较准确客观，而且工作高效稳定。

参考文献：

[1]王常亮.基于VBA的OFFICE操作题自动批阅技术[J].网络财富, 2008(11):185-186

[2]于志奇.Office操作题自动阅卷的探讨与实现[J].电脑知识与技术,2009,5(9):2268-2269.

[3]李贵洋,王世伦.Word文档自动判卷的实现[J].中国测试技术,2004,30(4):79-80.