- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
试题库成卷版面设计技术评比
试题库成卷版面设计技术
钟名春
摘 要:本文根据现有试题库软件在生成试卷时版面布局不完善的问题,提出了一种成卷版面设计技术。它使用的核心技术是VBA,通过编程实现自动排版和输出功能。该技术同样适用于期刊、网上购物订单等的版面设计。
关键词:成卷 版面设计 VBA 自动排版
A Technique of Test Paper Typesetting
Zhong Mingchun
(Shunde technical secondary school, Shude Foshan 528300)
Abstract: This article raises design of test papers typesetting, because the problem of incomplete layout exists in test paper producing. It chiefly depends on the technique of VBA, and realizes automatically typesetting and strengthens the function of output. In fact, it can be used on other aspects of typesetting, such as journals, web orders and newspapers.
Key words: test paper producing,layout, VBA, automatic typesetting
1、引言
自从1996年底,国家计委正式批准计算机辅助教学软件研制开发与应用五”国家重点科技攻关项目
图1 Microsoft Word Visual Basic 对象模型对象 Microsoft Word 应用Microsoft Word实体。
Document 对象一篇文档是集合中的一个元素Documents 集合包含 Word 当前打开的所有 Document 对象。Documents的Add和Open方法可新建文档对象代表窗口或窗格中的当前所选内容若文档中没有所选内容,则代表插入点每个文档窗格只能有一个活动的 Selection 对象,并且整个应用程序中只能有一个活动的 Selection 对象。Selection对象多种方法和属性编辑文档中所选内容。对象 Word应用程序“工具”菜单“选项”对话框中的选项。Microsoft Word Visual Basic对象
图2版面设计技术实现方案图
Fig2 The view of the realize of the typesetting technique
使用试题库成卷版面设计技术实现应用系统的过程中,重点要把握数据库结构设计和版面设计,至于数据的入库过程比较简单,本文就不作描述。现分述如下:
3.1 数据库结构设计
数据库的结构取决于实际应用系统所处理的数据,至于采用何种数据库来存储数据可根据实际情况来定,但应能满足系统的要求;例如数据中包不包含图形,数据可分为几类等等,我们可以根据这些信息来设计数据库的结构,比如需要分成多少个表来存储,每个表有多少个字段及各字段的类型和大小等。本文提出用SQL数据库主要考虑到它安装和操作简易,查询快速,处理能力强,并且可以存储文本和图象。
3.2 版面设计
版面设计采用Visual Basic工具,VBA技术和OLE技术,并且结合Office平台。实际上是针对Office平台用VBA和OLE技术进行开发,当然还要连接数据库并读取数据。
从数据库读取数据生成试卷时,试卷文本长度的统计和图象尺寸的检测一直是版面设计的难题,但我们发现利用VB的内置函数是很容易实现的。具体检测的实现算法如下:
If rsquery.field(选取内容序列) is 文本 Then
intLength= Len(rsquery.field(选取内容序列))
Else
imgObj= rsquery.field(选取内容序列)
dbWidth=imgObj.width
dbHeight=imgObj.Height
End if
现给出试卷生成及其版面设计实现的算法及关键技术:
用VBA调用Word对象模型,实现一个生成试卷对象的通用过程createPaper(),用此过程生成的试卷只是一个空文档。
Public Sub createPaper(para1,para2, …)
Documents.Add DocumentType:=wdNewBlankDocument
ChangeFileOpenDirectory para1
ActiveDocument.
文档评论(0)