利用WordVBA实现快速试卷编号

1问题的分析

以大连工业大学基础化学教学中心为例，我们先看一下试卷编号的特点：

2008-2009学年第二学期物理化学应化081HC8921501学年学期课程名称班级编号试卷编号的内容包括学年、学期、课程名称、班级和编号，由于每学期进行试卷编号时，学年、学期和课程名称都固定，因此可以设计成组合框，让用户选择输入，由于班级较多，因此可以设计成复选框让用户选择，最重要的编号是让系统自动生成的，编号的涵义从左到右依次为：

“HC”：化工与材料学院;

“89”:2008-2009学年;

“2”：第二学期 (1表示第一学期) ;

“1”：基础化学教学中心 (在本例中是定值) ;

“5”：物理化学(其中1表示无机及分析化学，2表示普通化学，3表示有机化学，4表示普通有机化学，6表示无机化学，7表示分析化学);

“01”：试卷序号 (因试卷的多少而定) 。

2程序设计

由于学年、学期、课程名称的不同，这些都要人工选择或输入，因此设计了窗体输入 (见图1) ，我们将学年、学期、课程名称和学生年级设计成了组合框输入，可以让用户选择输入，把班级列表设计成复选框让用户自行选定，班级复选框只要专业和班级不要年级，待用户选定好年级后自动添加年级，成为完整的班级。最后，按照用户的输入自动批量的将以上信息输入到Word中。

有了以上的思路, 我们就可以编写代码了.打开Word, 进入“工具宏Visual Basic编辑器 (或Alt+F11) ”, 进入“插入”菜单, 选择“用户窗体”, 这样就在Normal里插入一个窗体，在此窗体中建立如下图的控件，控件的初始值可以用窗体的Initialize过程加入，命令按钮对应下面的代码。

Dim c (34) , f (34) As String'定义两个数组，一个用于储存班级名，另一个用于储存要输入的试卷编号

End Sub'窗体初始化时, 运行上面程序, 将各复选框的"caption" (标题) 属性赋值给数组c () , 然后在各组合框中添加待选值.

摘要：手工为试卷编号费时费力, 而且每学期都要重复劳动, 我们针对试卷编号的特点设计了Word VBA, 从而实现了利用VBA来实现自动编号。用户可以对学年, 学期, 年级, 班级等作出选择, 然后就可以自动输出试卷编号。

关键词：VBA,Word,Office,试卷编号,自动化

参考文献

[1] 周建平, 郭喜如.Word非常接触[M].北京:人民邮电出版社, 2006:238～241.

[2] 杨晓亮.Word VBA 高效编排范例应用[M].北京:中国青年出版社, 2005:89～105.

[3] 候捷.Word编排艺术[M].北京:电子工业出版社, 2005:132～143.

[4] 刘贵伟, 廉锁原, 彭彩红.利用Word　VBA程序快速自动编排离子反应方程式[J].辽宁师范大学学报 (自然科学版) , 2008, 31 (4) :439～442.