【文件属性】：
文件名称：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