差异化生成Word操作素材.docVIP

差异化生成Word操作素材 　　摘要：为了避免学生相互拷贝电子版的操作题作业，用Excel生成不同题目细节和素材的Word文档，每个学生的操作题目和素材都是不同的，这样堵住了拷贝别人作业的途径，强迫亲自动手操作，才能完成个性化的电子作业。 　　关键词：差异化；Word；操作素材；作业 　　中图分类号：G642 文献标识码：A 文章编号：1009-3044（2015）05-0228-02 　　Differently Generated Word Operational Homework Material 　　LIU Ben-bin 　　（Suzhou Institute of Trade Commerce， Suzhou 251009， China） 　　Abstract： In order to avoid students copying electronic version of the homework， use Excel to generate different topics details and the material of the Word document. each students operating problems and material are different， forcing to complete the personalized electronic personally. 　　Key words： Difference； Word； operational material； homework 　　1 问题的提出 　　“计算机应用基础”成为大中专院校各专业必开的一门公共基础课程。但由于学生的学习兴趣、主动性不高，对“计算机应用基础”课程中的文字处理、数据处理的兴趣也不高。对于布置的电子版本的作业，拷贝别人的则属普遍现象。 　　很显然，学生之所以拷贝别人的作业代替，是因为大家的作业是一样的。要想作业不能拷贝别人的，必须全班同学的作业都不一样，这样才能逼迫学生自己亲自动手操作一遍，才能完成自己的作业。对于我们“计算机应用基础”课程的Word部分的内容来说，要求作业不一样，一方面是供操作练习的素材不一样，还有就是操作题目要求的具体细节不一样，比如字体大小颜色及编辑排版位置等的不同，这两个方面在一起，组合出不同的操作题目，就很难把别人的作业替换成自己的作业了。 　　2 解决方法 　　怎么组合出由不同的素材和操作细节形成的操作题呢？本文采用的方法是在Excel表格里，每一列代表一个操作命令或者素材片段，同一行上的各列从头到尾串联起来就是一个完整的操作题目。同一列是同一性质的操作，只是在不同行，这一列的操作细节有所不同，比如在某列是设置字体的颜色，这列在不同行，要求设置的颜色不同而已。所有同学在做到这一步骤时候，都是设置字体颜色，但是不同的人设置字体的颜色要求不同。如下图所示： 　　前两列分别是学号和姓名，不同班级的粘贴在这里就行了。C列是操作题目的文字性描述，即要求设置页边距；D列是操作细节，页边距是多少，在不同行不一样。每一行各列顺序串联起来，就是一道完整的操作题目。在本页面上有个按钮“编辑排版电子板报”，点击这个按钮，就会生成若干个Word文档，文档的命名是由A、B两列的学号和姓名组成。形成后的内容如下： 　　陈红艳任务一：设置上下边距为1.5，左右边距为2。任务二：添加标题“陈红艳”，华文行楷一号，字符缩放150%。任务三：在页面左上角添加图片11，环绕方式为四周型，左对齐。任务四：在标题与正文间加一空行，在空行上添加12磅浅橙色横线。 　　任务五：在页面右上角添加用文本框表示的刊号及主办单位，各占一行，宋体小五号。第一行内容为：“陈红艳第29期”这几个字。下一行内容是“主办单位2 团总支”这几个字，不要边线。任务六：设置正文前五段首行缩进11字符，并分11栏。 　　任务七：在适当位置插入艺术字“陈红艳，作业认真！”四周型。任务八：在文章的第五段插入图片11，环绕方式为四周型。任务九：设置第14段首字下沉11行。 　　以上内容中有着重号的字体，表示可变的操作细节内容，也就是同列不同行之间是变化的，比如字体的大小、颜色等内容；倾斜的字体部分，指出是属于相邻列的单元格内容。 　　3 算法实现 　　相邻的单元格词语通过VBA的循环代码，把他们串联成句子。若干句子后加上一个换行代码就形成一个段落。下面是这个循环代码： 　　For j = 2 To 24 ‘j代表的是列，这个循环在i代表的行循环内 　　Set rng = ActiveWorkbook.Sheets（1）.Cells（i， j） 选择一个单元格赋值给变量 　　With .Se