- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Word操作题自动阅卷方案
Word操作题自动阅卷方案摘要:提出了利用VBA技术,使用Visual Basic进行程序设计,从Word文档中提取测试内容相关的属性与测试要求相比较,判断操作是否正确并增减分数,从而实现Word操作题的自动阅卷方案,并给出了部分算法
关键词:VBA;自动阅卷;office;属性;评分
中图分类号:TP311.52文献标识码:A文章编号:1672?7800(2011)012?0054?02
作者简介:付海涛(1976-),男,吉林长春人,吉林农业大学讲师,研究方向为计算机应用及计算机教育
0引言
随着当今社会办公自动化程度的不断提高,计算机应用技能在教学与工作活动中成为不可或缺的技能之一。在高等农业院校教学活动中《大学计算机基础》已经成为公共课程之一,占有重要的地位。其中Word字处理软件,是主要教学重点,Word字处理软件的操作也是计算机技能考核的主要内容
由于Word软件本身功能强大、内容丰富,加上软件操作类知识点并不适合使用传统的试卷形式进行考试,所以,多数考核部门选择让考生使用计算机完成操作类考试。那么如何准确、快速、高效地衡量被测试人员对Word的掌握程度,是教学人员亟待解决的问题
本文主要论述了一种利用VBA技术,对考生提交的Word文件进行快速准确的进行阅卷的可行性方案
1自动阅卷系统的思路分析
在考试过程中,操作题主要检查考生的实际应用能力。通常是给出一篇Word文档并提出若干要求,考生按照要求利用Word软件进行排版并保存为Word文档,之后提交所做的文件。阅卷人负责检查考生提交的文件并判断是否符合要求
由于Word文件的结构并没有使用头加内容的存储方式,而是采用了对象数据流的方式进行存储,文件内部包含了主数据流、表数据流、非文本数据流、摘要等信息,文件结构非常复杂。很难通过外部获取的方式获得可靠的数据结构
实际上,Office是基于部件模型技术(COM技术)的软件,这使其具有了COM自动化的功能。事实上,Office中集成了标准宏语言(VBA)提供了访问Office文件的接口。以Word2003文件为例,其包含的表格、图片、页面、格式等等无一例外的都属于VBA对象,这就为在VBA程序中使用这些对象的属性和方法,实现自动化操作奠定了基础
编写自动阅卷系统的思路就是:通过VBA编程调用Word2003文档中与题目相关的对象,提取其属性值。并将提取的结果与实际的要求做比对,从而精确的判断出考生的操作是否正确,并给出相应的成绩
2自动阅卷系统的实现方法
自动阅卷系统的开发可以选用VB6.0(Visual Basic 6.0)作为开发工具,VB6.0对于Office中的标准宏语言(VBA)有着良好的支持,具有面向对象、界面设计简单、开发速度快、易于调试等优点。具体方法如下:
(1)在VB6.0工程中引入“Microsoft Word 11.0 Object Library”对象库,主要目的为在编程过程中查看该库的对象及其所有的属性和方法,实现快速引用对象和程序优化。在Office2000中该库为9.0版本,在Office97中版本为8.0
(2)定义文档对象和应用程序对象,并打开相关文档
Dim ApplicationWord As Word.Application
Dim DocumantWord As Word.Document
Set ApplicationWord = New Word.Application
Set DocumantWord = ApplicationWord.Document.Open(“路径\文件名”)
(3)获取Word文档中的相关属性
属性的获取是整个自动阅卷系统中最总要的信息,能否正确阅卷取决于能否取得相关的属性值。在Word2003中常用的对象包括有:页面格式――PageSetup、段落格式――Paragraphs、查找与替换――Find、表格格式――Tables、图片与绘图――Shapes、文本格式――Range等等。编程过程中可以通过这些对象获取其需要的属性,来做判断。例如:①获取页面上边距:Tmargin = PageSetup.TopMargin;②获取第一段文字的颜色:Ctext = Paragraphs(1).Font.Color;③获取表格的行数:Rcount=DocumantWord.Tables(1).Rows.Count。将属性取出后,与正确的值做比较判断据此可以得出考生操作的结果是否正确,从而进行成绩的增减,并最终给出分数。设置纸张左边距为2cm的评分(1cm约等于28.35磅)示例程序如下:
If DocumantWord.PageSet
您可能关注的文档
- A Study of Anthills of the Savannah from the Perspective of Bakhtin’S Polyphonic Theory.doc
- ADC发泡剂生产废水处理技术探究.doc
- ADAMS在机械设计综合实践课程设计中应用.doc
- Ad Hoc网络未来发展方向探析.doc
- AHRLAC南非首架国产固定翼军机.doc
- ADSL上行速度过高引起掉线原因分析.doc
- ADSL常见故障及排除方法.doc
- ABT新剂型生根粉在刺槐及水腊播种育苗中应用效果探究.doc
- AIS虚拟航标及其在HPD数据库中表现形式初探.doc
- ALC墙板填充墙裂缝成因试验探究.doc
文档评论(0)