对Word表格插入题自动批改技术研究与实现.docVIP

对Word表格插入题自动批改技术研究与实现 　　摘 要：基于实践、结合实例，本人对Word表格对象进行了分析，对Word表格插入题操作的自动批改技术进行了研究，总结出带有规律性的实现方法。 　　关键词：Word；表格；自动批改 　　中图分类号：G434 文献标识码：B 文章编号：1671-7503（2013）13/15-0140-04 　　一、引言 　　在计算机基础教学中，制作表达某种信息或关系的Word表格是每个学生必备的操作技能。在我们的工作、学习、生活中，用Word制作的表格可谓无处不在。那么，如何评价学生用Word制表的技能呢？VBA程序能够帮助我们对学生的制表技能做出评价。当把这种评价落实到每一行的VBA代码上时，又将如何实现？下面结合实例阐述Word表格插入题的自动批改技术。 　　二、实现过程 　　（一）例题再现（如图1） 　　（1）将文档上方的表格（题中称之为表格1），复制、粘贴到其下方（复制后的表格称之???表格2）。以下所有的操作均在表格2上进行。 　　（2）将第1行第1列与第2行第1列中的文字内容对调。 　　（3）将第1行第5列单元格拆分成一行3列；删除原有的“综合”字段；在新添加的3个单元格中依次输入下列文本：物理、化学、生物。 　　（4）在第2行最后一列用求和公式计算出总分。 　　（5）将新插入的3个单元格对齐方式设置为中部居中。 　　（二）关键代码解析 　　1.读取单元格文本 　　判断第2小题中两个单元格内容是否对调，识别第3小题中是否在新添加单元格中输入对应的文本，采用的是同一种解法。下面，以判断第1行第1列单元格的内容是否为“考生姓名”这一考点分析具体的解法。 　　在VBA程序中，主要利用Table对象和Tables集合对象处理表格。其中，Table对象代表一个表格，Tables则是所有Table对象组成的集合。上述试题中的表格2用VBA语言来描述就是Tables（2）；在表格内部，使用Cell对象来访问具体的单元格，第1行第1列，用VBA代码来写就是Cell（1，1）（如图2）；要读取第1行第1列单元格中的文本内容是否为“考生姓名”，需要调用left函数来实现。因此，要判断第1行第1列单元格的内容是否为“考生姓名”如图3所示代码。 　　If Left（Tables（2）.Cell（1， 1???， 4） = “考生姓名”Then 　　（取得相应的分数） 　　Else 　　（提示：表格2 　　第1行第1列单元格中的内容不是“考生姓名”。） 　　End If 　　2.查找单元格文本 　　在拆分单元格时，默认情况下，Word程序会保留“综合”字段，为判断考生是否将“综合”字段删除，可采用“遍历算法”——遍历表格2中所有单元格——查找“综合”字段。其代码如下： 　　Dim celTable As Cell 　　Dim rngTable As Range 　　For Each celTable In ActiveDocument.Tables（2）.Range.Cells 　　Set rngTable = celTable.Range 　　rngTable.MoveEnd Unit：=wdCharacter， Count：=-1 　　If rngTable.Text = 综合 Then 　　（提示：“综合”字段没有删除！） 　　Else 　　（取得相应的分数） 　　End If 　　Next celTable 　　3.突破表格公式数据计算甄别之难点 　　使用表格公式进行数据计算是Word制表技能考核的一个难点。许多考生或因对单元格地址命名规则不熟悉，特别是对非规则表格的单元格地址无法做出准确的判断而导致不会使用表格公式进行计算，或直接调用操作系统提供的“计算器”程序进行计算后，将计算结果手动填写到单元格中。这样的误操作如何用VBA进行甄别？下面，先谈一谈表格公式与域的密切关系。 　　??常情况下，通过“表格→公式”命令在单元格中插入公式后，计算结果会直接显示出来。当我们选中计算结果后，就会发现计算结果下面“隐含”的底纹。这个底纹就是我们常说的“域底纹”。如果在选定的计算结果上单击鼠标右键，选择快捷菜单中的“切换域代码”命令，其结果显示为带有大括号的代码（如{=SUM（LEFT）}） ，当我们再次选择这行代码从弹出的快捷菜单中选择“更新域”命令，计算结果又显现出来。也就是说，在Word表格中，表格的计算是通过插入“域”，确切地讲应该是“=（FORMULAR）域”的方式来实现的。等号“=”是在单元格中输入公式时必用的字符，是公式的标志性字符；“FORMULAR”的本义就是公式。在上面的实例代码“{=SUM（LEFT）}”中，“{ }