用VBA实现Office操作题的自动阅卷资料

1、用VBA实现Office操作题的自动阅卷在目前的办公自动化软件中,MicrosoftOffice的应用已极为普遍,因此在高中信息技术会考中，Word、Excel已经成为必考内容。如果它们的操作题单纯依靠人工阅卷，效率会非常低，而且容易出现误判、漏判、给分不公正等问题。目前，信息技术会考软件已经实现了Office操作题的自动阅卷功能，但任课教师如果想要在平时的教学中使用这些软件，就必须花钱购买。为了解决这个问题,我认真研究了很多资料，使用Office软件自带的VBA宏指令编程，实现了操作题的自动阅卷功能。1 VBA的基本概念与实现原理VBA是指VisualBasicforApplication,

2、它是在Office中使用的宏语言,主要为了增强Word、Excel等软件的自动化能力。VBA的语法类似VB,但提供了很多VB中没有的函数和对象，这些函数、对象都是针对Office应用的。因此可以像编写VB程序那样来编写VBA程序，以实现某个功能。2 VBA针对Word的主要对象VBA中带有大量专门针对Office（包括WordExcelPowerPoint以及Access）文件的对象，限于篇幅问题,本文只介绍针对Word的VBA对象。在Word中我们能够获得的最高层对象是Application对象，它代表的是Word应用程序本身。在Application对象中包含了一些其他的对象集合,例如:D

3、ocument、windowsSelection等对象。documents对象集合和document对象都是Application对象的子对象。documents对象集合是所有的document对象的集合,document对象代表的是一篇完整的Word文档,它包括了文档中所有的对象如段落、文本、字、句、表格格式等。如果VBA代码与考试题在同一个文档中，建议大家使用ThisDocument对象，它代表当前文档，这样能够省去打开文档、保存文档、关闭文档等复杂操作。使用VBA通常需要完成的任务是在文档中指定一个区域，然后对该区域进行一些操作，例如插入文字、应用格式等。文档的这一部分就可以用Range

4、对象来代表。定义Range对象后，就可以应用Range对象的方法和属性来修改这个区域的内容。对文档应用格式主要包括字体格式、段落格式、表格等内容。通过使用Font对象可以设置文本的字体格式。Font对象包含了各种字体属性(字体名称、字体大小、颜色等)。Paragraphs对象包含了所选内容、范围或文档中的所有段落。Paragraph对象为Paragraphs集合的一个成员，代表选定内容、范围或文档内的一个段落。可用Paragraphs(index)返回一个Paragraph对象，其中index为索引号。Tables对象是由Table对象组成的集合,它代表选定内容、范围或文档中的所有表格。Tab

5、le对象是Tables集合的一个成员，代表一个单独的表格。可使用Tables(index)返回一个Table对象，其中index为索引号。索引号代表选定内容、范围或文档中表格的位置。3 VBA评测Word操作题实例通过上面的内容，我们已经了解Word中常用的VBA对象，关于它们的属性和方法大家可以看帮助。面，我们通过两个实例学习VBA评测Word操作题的编程方法。例1字体格式的评测。题目要求：将第一自然段(明十三陵从1409年营建长陵到清顺治元年营建思陵)的格式设置为：隶书、小四号、青色、加粗、倾斜。代码如下：WithThisDocument.Paragraphs(1).Range.Font考

6、点1、对字体名称进行评测If.Name=隶书ThenTextBoxl.Text=考点1字体名称设置成功&vbCrLfElseTextBoxl.Text=考点1、字体名称设置失败&vbCrLfEndIf考点2、对字号大小进行评测If.Size=12ThenTextBoxl.Text=TextBoxl.Text&考点2、字体大小设置成功 & vbCrLfElseTextBoxl.Text=TextBoxl.Text&置失败&vbCrLfEndIf考点3、对字体颜色进行评测If.Color=wdColorTealThenTextBoxl.Text=TextBoxl.Text&置成功&vbCrLfEl

7、seTextBoxl.Text=TextBoxl.Text&置失败&vbCrLfEndIf考点4、对字体粗细进行评测If.Bold=TrueThenTextBoxl.Text=TextBoxl.Text&置成功&vbCrLfElseTextBoxl.Text=TextBoxl.Text&置失败&vbCrLf考点2、字体大小设考点3、字体颜色设考点3、字体颜色设考点4、字体粗细设考点4、字体粗细设EndIf考点5、对字体倾斜进行评测If-Italic=TrueThenTextBoxl.Text=TextBoxl.Text&考点5、字体倾斜设置成功&vbCrLfElseTextBoxl.Text=

8、TextBoxl.Text&考点5、字体倾斜设置失败&vbCrLfEndIfEndWith需要说明的是，TextBoxl是我在Word文档中添加的一个文本框控件的名称，它的用途是把评测结果呈现给学生。例2段落格式的评测。题目要求：将第二自然段（十三陵是中国历代帝王陵寝建巩i二）的段落格式设置为：首行缩进4字符;段前间距1行，段后=f间距1行。代码如下：WithThisDocument.Paragraphs（2）首行缩进4字符If-CharacterUnitFirstLineIndent=4ThenTextBoxl.Text=TextBoxl.Text&考点1、首行缩进4字符设置成功&vbCrL

9、fElse第近陟对单地视神&）xl.Tex工具栏”考焉空件工廉府进4字符设置失败&vbCrLfEndIf段前间距一行If-SpaceBefore=15.6ThenTextBoxl.Text=TextBoxl.Text&行设置成功&vbCrLfElseTextBoxl.Text=TextBoxl.Text&行设置失败&vbCrLfEndIf断后间距一行If,SpaceAfter=15.6ThenTextBoxl.Text=TextBoxl.Text&行设置成功&vbCrLfElseTextBoxl.Text=TextBoxl.Text&行设置失败&vbCrLfEndIfEndWith考点2、段前

10、间距考点2、段前间距考点3、段后间距考点3、段后间距使用Word控件实现阅卷功能第一将文档恢复为排版前的状态。步、第二步、单击“视图”工具栏”控件工具箱”命令.打开控件工具箱。第三步、单击控件工具箱中的“命令按钮”，在文档末尾处插入一个命令按钮。第四步、在命令按钮上右击，选择“属性”命令，打开属性面板，并设置“Caption属性为“交卷”。PrivateSubCommandButtonlClick()EndSub第六步、单击控件工具箱中的“文本框”，在文档末尾处插入一个文本框,默认名称为Textboxl;第七步、在文本框上右击.选择“属性”命令，打开属性面板，并设置“MultiLine”属性为“True”，允许文本框显示多行文本。第八步、添加代码