让Word自动评分.doc

让Word自动评分在目前的信息技术教学中，操作题的考核成为一个急需解决的问题。为了给学生一个真实的动手操作环境，很多资金较充裕的学校都购买了由专业软件公司编制的信息技术考试系统，但考试系统动辄几千元的售价对部分经济条件有限的学校来讲，只能望而却步。为解决这个问题，本人利用Word2000中的Visual Basic编辑器，编制如下程序段，初步给学生们提供了一个真实的环境，对他们的动手能力进行测试、训练，以适应会考中的最大难题操作题，同时对操作进行评价，指出错误原因，解决了教师在动手实验课中对学生操作出现问题时的跟踪难题。具体内容如下：一、出示操作要求（例）（1） 将第一行标题改为：楷体，三号，倾斜，居中。（2） 将标题加灰色25%底纹。（3） 对文档第二自然段进行段落格式化：左缩进1.5厘米，右缩进2厘米，行间距固定为18磅。（4） 插入艺术字“珍惜”（第三行第一列的样式），楷体，80磅，加粗，环绕为紧密型。二、程序界面设计1 首先给学生提供一个初始化文件（本例初始化文件为含有三段文字的Word文档，所有效果均为默认。）2 在初始化文件的下方插入一个文本框，用于显示操作要求。（也可以将操作要求投在大屏幕上或书写在黑板上）3 使用“控件工具箱”中的“”工具在文档中插入一个“命令按钮”对象，“设置对象格式”为“浮于文字上方”，将该对象拖至文档的最后。用右键设置其属性“Caption”为“交卷评分”，其余默认（也可对文字字体及颜色做一些美观的设计）。4 使用“控件工具箱”中“”工具在文档中插入一个“标签”对象，“设置对象格式”为“浮于文字上方”，将该对象拖至“命令按钮”对象的下方，调整对象的大小至足够大，用于显示对学生操作的评价。用右键设置其属性“Font”为“楷体_GB2312”、“加粗”、“四号”、“红色”（可选）。三、程序代码1双击“命令按钮”对象，进入按钮单击事件的编辑状态，输入代码如下：Private Sub CommandButton1_Click()Dim wdnumber As Integer, tempnumber As Integer, wderror As String定义变量类型，wdnumber用于存放学生成绩，tempnumber用于存放临时成绩，wderror用于存放操作评价Label1.Caption = wdnumber = 0tempnumber = 0wderror = 1.初始化变量ActiveDocument.Paragraphs(1).Range.SelectSelection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend选择第一段标题行的文字部分If Selection.Font.Name = 楷体_GB2312 Thenwdnumber = wdnumber + 6Elsewderror = wderror + 标题字体设置错误。End IfIf Selection.Font.Size = 16 Thenwdnumber = wdnumber + 6Elsewderror = wderror + 标题字号设置错误。End IfIf Selection.Font.Italic = -1 Thenwdnumber = wdnumber + 6Elsewderror = wderror + 标题倾斜设置错误。End IfIf Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Thenwdnumber = wdnumber + 6Elsewderror = wderror + 标题居中设置错误。End IfIf wdnumber = 24 Then wderror = wderror + 正确。依次判断第1题的四个操作要求是否正确，统计得分并给予评价tempnumber = wdnumber存入临时成绩wderror = wderror + Chr$(13) + Chr$(10) + 2.使评价内容根据题号分行显示With Selection.Font.ShadingIf .Texture = wdTextureNone And .ForegroundPatternColor = wdColorAutomatic And .BackgroundPatternColor = wdColorGray25 Thenwdnumber = wdnumber + 16wderror = wderror + 正确。Elsewderror = wderror + 标题底纹设置错误。End IfEnd With判断第2题的操作要求是否正确tempnumber = wdnumberwderror = wderror + Chr$(13) + Chr$(10) + 3.ActiveDocument.Paragraphs(2).Range.Select选择第二自然段With Selection.ParagraphFormatIf .LeftIndent = 42.55 Thenwdnumber = wdnumber + 8Elsewderror = wderror + 段落左缩进设置错误。End IfIf .RightIndent = 56.7 Thenwdnumber = wdnumber + 8Elsewderror = wderror + 段落右缩进设置错误。End IfIf .LineSpacingRule = wdLineSpaceExactly And .LineSpacing = 18 Thenwdnumber = wdnumber + 8Elsewderror = wderror + 段落行间距设置错误。End IfEnd WithIf wdnumber - tempnumber = 24 Then wderror = wderror + 正确。判断第3题的操作要求是否正确tempnumber = wdnumberwderror = wderror + Chr$(13) + Chr$(10) + 4.If ActiveDocument.Shapes.Count = 4 ThenActiveDocument.Shapes(4).Select判断并选择学生插入的艺术字With Selection.ShapeRangeIf .TextEffect.Text = 珍惜 Thenwdnumber = wdnumber + 6Elsewderror = wderror + 艺术字文本输入错误。End IfIf .Fill.ForeColor.RGB = RGB(255, 255, 0) and .Fill.BackColor.RGB = RGB(255, 153, 51) Thenwdnumber = wdnumber + 6Elsewderror = wderror + 艺术字样式选择错误。End IfIf .TextEffect.FontName = 楷体_GB2312 Thenwdnumber = wdnumber + 6Elsewderror = wderror + 艺术字字体设置错误。End IfIf .TextEffect.FontSize = 80# Thenwdnumber = wdnumber + 6Elsewderror = wderror + 艺术字字号设置错误。End IfIf .TextEffect.FontBold = msoTrue Thenwdnumber = wdnumber + 6Elsewderror = wderror + 艺术字加粗设置错误。End IfIf .WrapFormat.Type = wdWrapTight Thenwdnumber = wdnumber + 6Elsewderror = wderror + 艺术字环绕方式设置错误。End IfEnd WithElsewderror = wderror + 找不到艺术字。End IfIf wdnumber - tempnumber = 36 Then wderror = wderror + 正确。判断第4题的操作要求是否正确Label1.Caption = wderror + Chr$(13) + Chr$(10) + 你的成绩是 + Str$(wdnumber) + 分。利用标签控件显示评价内容和成绩End Sub2对学生机软件环境进行设置，设置宏运行的安全性为“无”，如下图：本文只对Word自我评分一例从几个侧面来揭示了Offic