1、1目 录 1 概述 21.1 引言 21.2 系统概述 31.2.1 开发目的 41.2.2 开发环境 41.3 设计方案 52 可行性分析 62.1 技术可行性 62.2 实用角度 63 封面模块的设计与实现 73.1“学校信息”模块 103.1.1“学校信息”概述 103.1.2“学校信息”模块的实现 113.2 “ 作者信息”模块 113.2.1 “作者信息”概述 .113.2.2“作者信息”模块的实现 113.3 “论文信息”模块 .123.3.1 “论文信息”概述 .123.3.2 “论文信息”模块的实现 .134 结束语 .16全文共 19 页 5593 2基于 VBA 的论文模板
2、的设计与实现-封面模块设计与实现指导教师 赵希武 副教授摘要 随着计算机的普及，现在几乎所有的人都在利用计算机书写论文以及其他一些规范性文章，但是书写这些类型的文章，有很多格式的限制，对于一些非专业排版人士来说，调整文章的格式已然成为最大的困难之一，所以针对这样的人群，我们利用 Microsoft Office Word 2003 文字处理软件配合 Microsoft Office Access 2000 设计制作了一个研究生毕业论文模板。由于本模板的运用，大大的节约了论文书写者的时间，提高了工作效率，并且也使得论文的格式标准化和规范化，大大提高了论文质量。关键字 论文模板；格式；书写规范1
3、概述1.1 引言随着社会经济的发展，科技技术的进步，电子产品已遍布人类生活的各个领域。尤其是对电子计算机的普及和运用，已彻底影响了，甚至改变了人类活动的方方面面。计算机是人类科技发展的产物，更是人类进步的标志。尤其是在文字处理方面，几乎所有的文字处理都已通过计算机来完成。然而，在机器工作代替人的工作的同时，随之也出现了许多令人担忧的结果。比如书写一些有特殊格式要求的论文和学术研究报告等。几乎每个人都能够熟练的运用计算机来书写和记录，但是相当一部分人对于特殊的格式要求却束手无策，他们只能做到有计算机来书写、来记录，而达不到利用计算机限定论文的格式，使论文格式达到标准化、规范化。很多毕业生因为所写
4、的毕业论文格式达不到要求而浪费宝贵的时间，很多出色的研究和有实际价值的文献因为格式不合格而不能同世人见面。在网络收索引擎上输入关键字“论文格式”进行收索，能够得要标准的论文写作的格式要求，但是对于非专业的排版人士来说，调整格式却是一个较为困难的过程。3所以针对这样的人群，我们利用 Microsoft Office Word 2003 文字处理软件配合 Microsoft Office Access 2000 设计制作了一个研究生毕业论文模板。通过本模板的运用，能够大大的节约论文书写者的时间，提高工作效率，并且也使得论文的格式标准化和规范化，大大提高了论文质量。1.2 系统概述标准的论文主要是由
5、封面、中文摘要、英文摘要、目录、主要符号表（需要时） 、引言（需要时） 、正文、结论、致谢、参考文献、附录（需要时）组成。论文模板系统主要是完成系统的格式设置与限制。论文书写者只需要输入文字而不需要调整格式。系统主要做如下的格式限制：1. 页面设置：A4 纸型，竖向排版，左边距 3.0cm，上下右边距 2.5cm。2. 论文题目：黑体小二号居中，单倍行距。3. 作者信息：单位、专业、班级、姓名、学号，宋体四号居中，单倍行距。4. 指导教师信息：姓名、职称，宋体四号居中，单倍行距。5. 摘要：“摘要”两字黑体五号，摘要内容楷体五号，单倍行距。6. 关键字：“关键字”三字黑体五号，摘要内容楷体五号
6、，单倍行距。7. 正文：1) 正文标题层次采用阿拉伯数字分级编码，一级标题 1，二级标题1.1，三级标题 1.1.1。编号左起顶格书写，末尾不加标点。一级标题黑体二号，二级标题黑体三号，三级标题宋体三号。2) 正文文字使用宋体小四号，1.5 倍行距。3) 正文中的各类公式，物理量单位，化学用语等专用符号要严格执行国家标准和国际惯例。4) 正文中的图下要有图注，表上要有表头，要使用图 1，表 2 等指示性说明，图表文尽量靠近，不要远离。8. 致谢：宋体小四号，1.5 倍行距。9. 参考文献：单倍行距。41）文中标法：参考文献只列出文中应用的公开发表的文献，按在文中出现的先后次序用1，2，3，4等
7、作为上角标，在被注文字右上角标出。2）文后著录格式：“参考文献”四个字为黑体五号，参考文献内容为宋体五号，按规定顺序著录，按序号悬挂排列。10. 英文索引：单倍行距。1) 标题：新罗马二号，加粗，居中。2) 单位、专业、班级、姓名、学号，新罗马四号居中。3) 指导教师姓名、职称，新罗马四号居中。4) 摘要：“摘要”两字新罗马四号加粗，摘要内容为新罗马四号。5) 关键词：“关键词”三字新罗马四号加粗，关键词内容为新罗马四号。1.2.1 开发目的在科技和社会经济发展的今天，计算机的普及越来越广泛，人们的很多生活习性也随着计算机的普及而被改变。而且在现在的大学校园里，广大的学生和教师书写论文或者是研
8、究文献的时候，常常遇到很多格式设置的困难，有很多同学不知论文的具体格式是什么，而有的同学知道论文的格式，但是由于Word 操作水平的限制，也不能正确的进行格式设置，从而影响到毕业或者论文的发表。鉴于这种原因，我们设计制作了论文模板来帮助论文书写者写作论文。论文书写者只需要输入文字，模板系统则会更具用户的选择设置相应的格式。比如需要插入一级标题，用户只需要点击“插入一级标题”按钮，就能在文档中插入一个一级标题，该一级标题的字体、字号、对齐方式和行距等格式模板则会自动限制。这样通过模板的使用，就能大大提高论文书写者的工作效率和是论文的格式更加标准化和规范化。1.2.2 开发环境操作系统：Windo
9、ws XP，Windows Vista，Windows 7 5数据库：Microsoft Office Access 2000开发技术：Microsoft Office Word 20031.3 设计方案该系统的使用对象主要是毕业生，而这一对象都存在一定的共同特点，这就对设计减小了难度。但是针对不同类型的毕业生也有一定的差别，因此在设计的时候也考虑到这些特殊的差异，用户在使用的时候可以根据自己一定的需求做出相应的修改，使得论文符合自己的需要。该系统在设计和实际的运用中，只有封面的内容涉及到数据库。封面上要体现的学校编号、论文分类号和学科门类等信息是通过数据库读取。所以针对以上的一些共性和特性，
10、经过全面的需求分析最后要求系统实现以下主要功能：1、论文书写者不需要事先查询学校编号、论文分类号信息，用户只需要在操作界面上选择自己的学校和相应的选项系统就能够自动生成学校编号和论文分类号。2、一级学科、学科、专业也不需要论文书写者手动输入，只需做相应的选项即可，研究方向由用户手动输入。3、论文书写者对文章的字体字号如有特殊的要求，系统也可以根据用户的选择灵活的设置。62 可行性分析2.1 技术可行性学校拥有的计算机硬软件完全可以胜任系统目标所提出的要求；另外，由于 Microsoft office Access 数据库使用方便、功能丰富、语言简洁易学，使用它可以轻松完成一些较复杂的问题，网上
11、又有许多论文格式的要求，通过赵希武老师的推荐我们得到必要的资料，技术方面问题基本解决。2.2 实用角度编写该论文模板可以方便论文的编写，解决一些论文中常见的问题，可以减轻编写者的编写难度，减轻指导教师的工作负担。73 封面模块的设计与实现 封面主要包含了三方面内容：学校信息模块，作者信息模块、论文信息模块。封面上所有需要输入的信息都是用户通过用户窗体选择或输入。用户窗体如图 1 所示。图 1 封面信息录入窗体当用户再点击“提交”按钮后，系统首先检查各个需要添加的项目是否已经填入信息，如果没有填入信息，系统将作出提示并将光标定位到没有填入的地方让用户重新输入，是实现该功能的代码如下：If Com
12、boBox1.Text = “ ThenMsgBox “学校名称不能为空，请选择！“, vbOKOnly, “系统提示“ComboBox1.SetFocusProtectExit SubEnd IfIf TextBox7.Text = “ Then8MsgBox “论文分类号不能为空，请输入！“, vbOKOnly, “系统提示“TextBox7.SetFocusProtectExit SubEnd IfIf ComboBox2.Text = “ ThenMsgBox “学科门类不能为空，请选择！“, vbOKOnly, “系统提示“ComboBox2.SetFocusProtectExit
13、SubElseIf ComboBox3.Text = “ ThenMsgBox “一级学科不能为空，请选择！“, vbOKOnly, “系统提示“ComboBox3.SetFocusProtectExit SubElseIf ComboBox4.Text = “ ThenMsgBox “学科、专业不能为空，请选择！“, vbOKOnly, “系统提示“ComboBox4.SetFocusProtectExit SubEnd IfEnd IfEnd IfIf TextBox6.Text = “ Then9MsgBox “研究方向不能为空，请输入！“, vbOKOnly, “系统提示“TextBo
14、x6.SetFocusProtectExit SubEnd IfIf ComboBox5.Text = “ ThenMsgBox “研究生类别不能为空，请选择！“, vbOKOnly, “系统提示“ComboBox5.SetFocusProtectExit SubEnd IfIf ComboBox6.Text = “ ThenMsgBox “学位不能为空，请选择！“, vbOKOnly, “系统提示“ComboBox6.SetFocusProtectExit SubEnd IfIf TextBox5.Text = “ ThenMsgBox “学号不能为空，请输入！“, vbOKOnly, “系
15、统提示“TextBox5.SetFocusProtectExit SubEnd IfIf TextBox1.Text = “ ThenMsgBox “论文（汉文）题目不能为空，请输入！“, vbOKOnly, “系统提示“TextBox1.SetFocusProtect10Exit SubEnd IfIf TextBox2.Text = “ ThenMsgBox “论文（英文）题目不能为空，请输入！“, vbOKOnly, “系统提示“TextBox2.SetFocusProtectExit SubEnd IfIf TextBox3.Text = “ ThenMsgBox “申请者姓名不能为空
16、，请输入！“, vbOKOnly, “系统提示“TextBox3.SetFocusProtectExit SubEnd IfIf TextBox4.Text = “ ThenMsgBox “指导教师姓名不能为空，请输入！“, vbOKOnly, “系统提示“TextBox4.SetFocusProtectExit SubEnd If3.1“学校信息”模块3.1.1“学校信息”概述“学校信息”是毕业论文中必不可少的一部分，学校信息包括学校名称、学校编号和学校的校徽三部分。在用户窗体上只体现了学校名称。其余学校信息都是根据选择的学校名称从数据库中查询获得。113.1.2“学校信息”模块的实现用户在
17、封面信息录入窗体中选择相应的学校名称如图 2 所示。图 2 选择学校当用户选择好学校名称，并且也填写好其他的信息，单击“提交”按钮提交信息。在响应这个事件中，系统自动检测出学校的编号、校徽并写到 Word文档中的相应的地方，程序代码如下： 以下代码通过学校名称查询学校编号 rst.Open “Select 学校代码 From 学校编号 Where 学校名称=“ data source=“ Persist Security Info=False“If rst.State adStateClosed Thenrst.CloseEnd Ifrst.Open “Select 分类代码 From 论文分类号 Where 类别=1 and 分类名称=“ format; write criterion
