文件名称：word自动评分祥解
文件大小：38KB
文件格式：RAR
更新时间：2012-05-21 10:49:38
word评分
1．双击“命令按钮”对象，进入按钮单击事件的编辑状态，输入代码如下： Private Sub CommandButton1_Click() Dim wdnumber As Integer, tempnumber As Integer, wderror As String '定义变量类型，wdnumber用于存放学生成绩，tempnumber用于存放临时成绩，wderror用于存放操作评价 Label1.Caption = "" wdnumber = 0 tempnumber = 0 wderror = "1." '初始化变量 ActiveDocument.Paragraphs(1).Range.Select Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend '选择第一段标题行的文字部分 If Selection.Font.Name = "楷体_GB2312" Then wdnumber = wdnumber + 6
【文件预览】：
让Word自动评分.rar