差异化生成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 student's 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 .Selection '选择对象操作

.typetext Text：=rng.Text

End With

Next j

.Selection.typetext Text：=vbCrLf

最后一行是回车换行，表示这段结束，这段由同一行的2到24列组成的段落。下面可以是接着的下一个循环，组成下一个自然段。在接下来的一行上重复上面的循环，这个i循环，就组成了另外一篇操作题作业。重复完所有的行，也就是班级同学名单，就完成了这次全班同学的作业布置。

在上面每一个自然段的循环里面，可以再嵌套一个循环，用不同的颜色来突出显示“任务几”，这样可以方便学生接着做下一个任务，这个循环可以这样：

If j = 3 Or j = 7 Or j = 14 Then ‘这里的3、7、14都是任务开始所在的单元格

.Font.Color = vbMagenta

Else：

.Font.Color = vbBlack '消除上次字体颜色改变的影响

End If

由于这些题目文字本身是不同的，所以可以作为素材，发给学生直接操作这些题目形成的素材。而这些题目文字数量只有几个自然段落，正常情况下是不够素材长度的，那么可以在题目后面的单元格放置大段的文字，一个单元格一个自然段的文字，凑齐段落数量。也可以题目是题目，素材是素材，分别在不同的文档，这样没有放在一起操作起来方便。

4 结束语

笔者尝试着在计算机应用基础教学中突出专业特色，通过寻求专业课教师的教学联盟、创设符合专业特色的教学情境、开发操作素材等手段，来激发学生的学习兴趣，力求培养学生的实际应用能力。操作题目以外的操作素材，如果能够结合班级的专业方向，有意识的选取学生感兴趣的信息，效果会更好一些。

参考文献：

[1] 韩泽坤，朱瑞亮. EXCEL VBA高效办公范例应用[M]. 北京：中国青年出版社，2008.

[2] 唐小毅.Excel在经济管理中的应用[M]. 北京：中国人民大学出版社，2010.

[3] 戴锐青.大学计算机信息技术试验实训指导[M].南京：河海大学出版社，2011.