Word操作题自动阅卷程序

1、Word操作题自动阅卷程序【摘要】Word操作题是高中信息技术学测必考题，复习过程中我们一般以四、五个题型来完成对所有知识点的复习。但是平时复习、训练当中教师阅卷工作量很大，且容易出错。本文介绍了通过VB编程实现对Word操作题的自动化阅卷并由Excel完成分数统计的实现过程。该程序的主要功能是：让程序自动读取学生提交的作品（Word文件），对文件中的相应操作进行评分并给出错误提示，将评分结果及错误提示自动记录到Excel当中，极大地方便了教师对学生Word作品的批阅。【关键词】Word操作题 自动评分 VB编程 自动统计结果一、概述：（一）Word操作题是高中信息技术学测必考题，考察的面很广

2、，主要有“字体、段落、表格、图片、艺术字、页眉页脚、页码、页面格式的设置、项目符号、分栏”等。平时训练当中教师阅卷工作量很大，且容易出错。笔者通过编程的方式，让阅卷程序自动识别学生的相关操作，实现自动阅卷评分并给出错误提示，将结果记录到Excel工作表中。（二）Word对象库及基本对象操作：Word 作为当今最常用的文字编辑应用软件, 它的相关操作是多样而且复杂。通过VB 实现对Word编程的首要前提就是在Visual Basic 中引进Word 对象库。它的引入通过VB 编程环境中的工程引用“Microsoft Word 10.0 Object Library”来设置。引入Word 对象库之

3、后, Microsoft Word 中的各个组成元素( 比如文档、段落等) 就一一对应于VisualBasic 支持并识别的各种Word 对象集合。例如, VB 中的Document 对象表示一个打开的文档, Paragraphs 对象表示当前文档中的所有段落, Selection 对象则与当前文档中的当前选定内容对应。以此, 依据考核题目的操作要求和操作结果, 在VB 中通过调用适当Word 对象的属性和方法就可完成对一个指定文档的设置和判断, 进而实现对Word 操作的自动评分。程序开始统计文件总数Kik-1i=0程序结束打开第i个文件，根据评分标准评分将分数及错误提示记录到：Excel否

4、是二、程序运行流程图：三、实例讲解：下面通过一个实例来讲解一下具体的实现过程：在Word操作的整个复习过程中我们大概通过四个练习来完成所有操作的复习，笔者就针对这四个练习编写了相应的阅卷程序。下面以其中的一个练习为例来讲解一下具体的实现过程。（一）操作要求如下：请打开test1.doc，完成下列相关操作，完成后以自己的名字重命名并提交：1、设置标题为楷体、三号字、居中放置。2、将文章每段首行缩进2个字符，段前间距为0.5行。3、设置文章的页眉为“猎狗的命运”，左对齐放置。4、在页脚处插入页码 = 1 * ROMAN I、 = 2 * ROMAN II、 = 3 * ROMAN III，对齐方式

5、为左侧。5、文章最后一段加-灰色15%底纹，应用范围为文字。6、删除表格的1996年所在的行，设置表格第一行的底纹为“浅青色”。7、文章第二段插入图片“猎狗.jpg”，将图片大小缩放为60%，版式设置为“四周型”。（二）核心代码：On Error Resume Nextk = File1.ListCount 统计当前目录下Word的文件数量Set Wordapp = CreateObject(word.application) 创建Word文档Set Xlapp = CreateObject(Excel.application) 创建Excel文档Xlapp.Visible = True 设置

6、Excel文档为可见Wordapp.Visible = True 设置Word文档为可见Set Xlbook = Xlapp.Workbooks.Open(App.Path & 成绩记录表.xls) 打开“成绩记录表.xls”If Xlapp.Workbooks.Count 1 Then 如果“成绩记录表.xls”不存在则新建一个 Set Xlbook = Xlapp.Workbooks.Add (App.Path & 成绩记录表) ElseSet Xlbook = Xlapp.Workbooks.Open(App.Path & 成绩记录表.xls)End IfSet Xlsheet = Xl

7、book.Sheets(1) 在Sheet1中完成下列操作Xlsheet.Cells(1, 1) = 姓名 第一行第一个单元格输入 姓名Xlsheet.Cells(1, 2) = 成绩 第一行第二个单元格输入 成绩Xlsheet.Cells(1, 3) = 错误 第一行第二个单元格输入 错误If k 1 Then GoTo ss 如果当前文件夹中文件数小于1则退出程序For f = 0 To k 1 开始逐个判分Scor = 0 初始化总分为0Strmiss = 初始化错误提示为空strdoc = File1.List(f) 第f个文件的名称Set Myword = Wordapp.Docum

8、ents.Open(App.Path & & strdoc) 打开该文件With Myword*第一题，判断标题的字体、字号及对齐方式If .Paragraphs(1).Range.Font.Name = 楷体_GB2312 Then Scor = Scor + 0.7 Else Strmiss = Strmiss & 标题字体设置错误； If .Paragraphs(1).Range.Font.Size = 16 Then Scor = Scor + 0.7 Else Strmiss = Strmiss & 标题字号设置错误； If .Paragraphs(1).Alignment = 1

9、Then Scor = Scor + 0.6 Else Strmiss = Strmiss & 标题对齐方式设置错误； *第二题，判断文章首行缩进及段前间距0.5行k1 = 0k2 = 0For i = 2 To 7If .Paragraphs(i).SpaceBefore = 7.8 Then k1 = k1 + 1If Round(PointsToPicas(.Paragraphs(i).Format.FirstLineIndent) = 2 Then k2 = k2 + 1Next iIf k1 = 6 Then Scor = Scor + 1 Else Strmiss = Strmis

10、s & 段前间距设置错误； If k2 = 6 Then Scor = Scor + 1 Else Strmiss = Strmiss & 首行缩进设置错误 ； *第三题，设置文章的页眉If Left(.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text, 5) = 猎狗的命运 Then Scor = Scor + 1 Else Strmiss = Strmiss & 页眉文字设置错误； If .Sections(1).Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignme

11、nt = 3 Then Scor = Scor + 1 Else Strmiss = Strmiss & 页眉对齐方式设置错误； *第四题，设置文章的页码If .Sections(1).Footers.Item(wdHeaderFooterPrimary).PageNumbers.NumberStyle = 1 Then Scor = Scor + 1 Else Strmiss = Strmiss & 页脚样式设置错误； If .Sections(1).Footers.Item(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment = 0

12、 Then Scor = Scor + 1 Else Strmiss = Strmiss & 页脚对齐方式设置错误； *第五题，判断文字底纹If .Paragraphs(7).Range.Font.Shading.BackgroundPatternColor = 14277081 Then Scor = Scor + 2 Else Strmiss = Strmiss & 文字底纹设置错误； *第六题，判断表格底纹、删除一行If .Tables(1).Rows(1).Range.Shading.BackgroundPatternColor = 16777164 Then Scor = Scor

13、+ 1 Else Strmiss = Strmiss & 表格底纹设置错误； If .Tables(1).Rows.Count = 4 And Left(.Tables(1).Range.Cells(16).Range.Text, 4) 1996 Then Scor = Scor + 1 Else Strmiss = Strmiss & 表格删除操作错误； *第七题，判断图片If .Shapes.Count = 1 Then Scor = Scor + 1 Else Strmiss = Strmiss & 图片插入错误； Pic_w = Round(PointsToCentimeters(.S

14、hapes(1).Width), 2)Pic_h = Round(PointsToCentimeters(.Shapes(1).Height), 2)If Pic_w = 2.12 And Pic_h = 4.74 Then Scor = Scor + 1 Else Strmiss = Strmiss & 图片大小设置错误； Label1.Caption = PointsToPicas(.Paragraphs(3).Format.FirstLineIndent)End With*统计相关信息到Excel文件中Xlsheet.Cells(f + 2, 1) = Left(strdoc, Len(

15、strdoc) - 4) Word文件去掉扩展名后写到“姓名”一列Xlsheet.Cells(f + 2, 2) = Scor 总成绩写到“成绩”一列Xlsheet.Cells(f + 2, 3) = Strmiss 错误提示写到“错误”一列Myword.Close False 关闭当前Word文件Next fss: Wordapp.Quit False 关闭整个Word文档（三）其它相关说明：1、在开始编程之前需要通过“工程-引用”来添加“Microsoft word 11.0 Object Library”和“Microsoft excel 11.0 Object Library”2、放置一个“FileListBox控件”，在窗体调用事件中写入代码：File1.Pattern = *.doc，用于搜集当前文件夹中的Word文件。三、下面是该程序对四位同学作品的判分情况的截图：首先，将阅卷程序和待阅文件放在同一个目录，可以提前在该目录建立一个“成绩记录表.xls”其次，启动判分程序：最后，得到批阅结果：本程序在Windows XP系统，Office2003下测试通过，参考文献：1、王读祥 Word操作题自动