利用vba对word操作自动评分提高课堂实效性研

《利用vba对word操作自动评分提高课堂实效性研》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用VBA对word操作自动评分提高课堂实效性研摘　要：现代计算机技术，把人们从繁琐的劳动中解脱出来。而要教学这些内容，却又给计算机教师带来繁重的负担。比如ent=at　　　　.LeftIndent=CentimetersToPoints(0)　　　　.RightIndent=CentimetersToPoints(0)　　　　.SpaceBefore=0　　　　.SpaceBeforeAuto=False　　　　.SpaceAfter=0　　　　.SpaceAfterAuto=False　　　　.LineSpacingRule

2、=ent=ber=False　　　　.Hyphenation=True　　　　.FirstLineIndent=CentimetersToPoints(0.35)　　　　.OutlineLevel=ent=e代表文字字体名称。”“Size代表文字大小。”“Color代表文字颜色。”“Bold代表文字是否加粗。”“Italic代表文字是否倾斜。”“at代表了指定区域、所选范围、查找与替换操作或样式中的段落设置。”“Alignment返回或设置指定段落的对齐方式。”“FilesMicrosoftOfficeOffice2052

3、）三、按图索骥，编制测评代码这一步，难度较大，我们可以参考相关的VB和VBA书籍。另外在Office2000的安装目录下可以找到诸如VBA、VBAXL9.CHM、VBAPPT9.CHM、VBAOFF9.CHM等帮助文件作为学习和参考之用。下面是我编写的关于“练习题.doc”文档的测评代码。Sub测评()DimdefenAsInteger设置测评结果变量defendefen=0’测评结果变量defen初始化为0⑴将标题“计算机的发展趋势”，设为华文行楷、二号、天蓝色字。（2分）IfActiveDocument.Paragraphs

4、.Count>=1ThenActiveDocument.Paragraphs(1).Range.SelectIfSelection.Font.Name=“华文行楷”AndSelection.Font.Size=22AndSelection.Font.Color=ent.Paragraphs.Count>=4ThenActiveDocument.Paragraphs(2).Range.SelectIfSelection.Font.Name=“楷体_GB2312”AndSelection.Font.Size=14AndS

5、election.Font.BoldThenActiveDocument.Paragraphs(4).Range.SelectIfSelection.Font.Name=“楷体_GB2312”AndSelection.Font.Size=14AndSelection.Font.BoldThendefen=defen+2如果正确则加2分EndIfEndIfEndIf⑶将两段正文，设为仿宋体、小四号、倾斜。（2分）IfActiveDocument.Paragraphs.Count>=5ThenActiveDocument.Pa

6、ragraphs(3).Range.SelectIfSelection.Font.Name="仿宋_GB2312"AndSelection.Font.Size=12AndSelection.Font.Italic=TrueThenActiveDocument.Paragraphs(5).Range.SelectIfSelection.Font.Name=“仿宋_GB2312”AndSelection.Font.Size=12AndSelection.Font.Italic=TrueThendefen=defen+2’如果正确则加

7、2分EndIfEndIfEndIf⑷将标题居中。（2分）IfActiveDocument.Paragraphs.Count>=1ThenActiveDocument.Paragraphs(1).Range.SelectIfSelection.ParagraphFormat.Alignment=1Thendefen=defen+2　　’如果正确则加2分EndIfEndIf⑸将正文内容首行缩进2字符，行距1.5倍。（2分）IfActiveDocument.Paragraphs.Count>=5ThenActiveDocu

8、ment.Range(ActiveDocument.Paragraphs(2).Range.Start,ActiveDocument.Paragraphs(5).Range.End).SelectIfSelection.ParagraphFormat.Chara