⑴ 将标题“计算机的发展趋势”，设为华文行楷、二号、天蓝色字。(2分)

　　If ActiveDocument.Paragraphs.Count >= 1 Then

　　ActiveDocument.Paragraphs(1).Range.Select

　　If Selection.Font.Name=“华文行楷”And Selection.Font.Size=22 And Selection.Font.Color=wdColorSkyBlue Then

　　defen=defen+2如果正确则加2分

　　End If

　　End If

　　⑵ 将两个小标题，设为楷体、四号、加粗。(2分)

　　If ActiveDocument.Paragraphs.Count >= 4 Then

　　ActiveDocument.Paragraphs(2).Range.Select

　　If Selection.Font.Name=“楷体_GB2312”And Selection.Font.Size=14 And Selection.Font.Bold Then

　　ActiveDocument.Paragraphs(4).Range.Select

　　If Selection.Font.Name=“楷体_GB2312”And Selection.Font.Size=14 And Selection.Font.Bold Then

　　defen=defen+2如果正确则加2分

　　End If

　　End If

　　End If

　　⑶ 将两段正文，设为仿宋体、小四号、倾斜。(2分)

　　If ActiveDocument.Paragraphs.Count >= 5 Then

　　ActiveDocument.Paragraphs(3).Range.Select

　　If Selection.Font.Name="仿宋_GB2312" And Selection.Font.Size=12 And Selection.Font.Italic=True Then

　　ActiveDocument.Paragraphs(5).Range.Select

　　If Selection.Font.Name=“仿宋_GB2312”And Selection.Font.Size=12 And Selection.Font.Italic=True Then

　　defen=defen+2’如果正确则加2分

　　End If

　　End If

　　End If

　　⑷ 将标题居中。(2分)

　　If ActiveDocument.Paragraphs.Count >= 1 Then

　　ActiveDocument.Paragraphs(1).Range.Select

　　If Selection.ParagraphFormat.Alignment=1 Then

　　defen=defen+2　　’如果正确则加2分

　　End If

　　End If

　　⑸ 将正文内容首行缩进2字符，行距1.5倍。(2分)

　　If ActiveDocument.Paragraphs.Count >= 5 Then

　　ActiveDocument.Range(ActiveDocument.Paragraphs(2).Range.Start, ActiveDocument.Paragraphs(5).Range.End).Select

　　If Selection.ParagraphFormat.CharacterUnitFirstLineIndent=2 And Selection.ParagraphFormat.LineSpacingRule=wdLineSpace1pt5 Then

　　defen=defen+2如果正确则加2分

　　End If

　　End If

　　输出测评结果变量defen

　　MsgBox defen,“最终得分”

　　End Sub

　　四、设置共享，实现自动测评

　　这一步可以把“题目要求.doc”和“练习题.txt”两个文件放置在教师机的一个文件夹内，并把这个文件夹设为只读共享，学生便可以通过网络来访问教师机进行练习了。

　　本文仅以Word为例加以说明，实际上本方法适用于大多数Office文档的自动测评，如Excel、Powerpoint等。