Word中借助VBA编程制作考试用作文稿纸
Microsoft Office Word是微软公司的一个文字处理器应用程序。
它最初是由Richard Brodie为了运行DOS的IBM计算机而在1983年编写的。随后的版本可运行于Apple Macintosh (1984年)、SCO UNIX和Microsoft Windows (1989年)，并成为了Microsoft Office的一部分。
Word给用户提供了用于创建专业而优雅的文档工具，帮助用户节省时间，并得到优雅美观的结果。
一直以来，Microsoft Office Word 都是最流行的文字处理程序。
作为 Office 套件的核心程序， Word 提供了许多易于使用的文档创建工具，同时也提供了丰富的功能集供创建复杂的文档使用。哪怕只使用 Word 应用一点文本格式化操作或图片处理，也可以使简单的文档变得比只使用纯文本更具吸引力。
目前最新版本为 Microsoft Office Word 2013 SP1。
语文考试中，经常用到作文稿纸，Word中带有稿纸模板，但有诸多限制(如纸型、行列数等相对固定)，在试卷排版时颇为不便。经过尝试，笔者找到一种利用Word的VBA编程，通过绘制表格实现考试用作文稿纸的方法。
一、编制程序
1.启动Word，连续点击“工具”，“宏”，“录制新宏...”，在弹出的对话框中填写宏名(此例为“作文稿纸”)，选择宏要保存的位置(可以保存在模板中，也可以保存在当前文档中)，如图1所示。
2.为了方便操作，可以将此宏以按钮的形式指定在工具栏中。单击“录制宏”对话框中的“工具栏”按钮，在弹出的“自定义”对话框的右侧，选中宏命令“Normal.NewMacros.作文稿纸”，用鼠标将其拖动复制到“常用”工具栏，在其上单击右键，选择相应的命令修改名称，为其编辑一个小图标，结果如图2所示。
3.单击“录制宏”对话框中的“关闭”按钮，屏幕上将出现一个“录制宏”工具栏，单击停止按钮停止录制。
4.依次选择“工具”、“宏”、“宏…”，在对话框中选择宏名“作文稿纸”，单击“编辑”按钮，打开vba编程窗口。录入如下代码：
Sub 作文稿纸()
UserForm1.CommandButton1.Enabled = True
UserForm1.Show
End Sub
5.插入一个窗体UserForm1，在其中插入4个标签，4个文本框，一个按钮。分别设置它们的相关属性，其中，“所需行数”文本框的“text”属性值设为25，“所需列数”文本框的“text”属性值设为20，“行间距”文本框的“text”属性值设为0.5，“首尾空行高度”文本框的“text”属性值设为0.4，如图3所示
6.双击命令按钮CommandButton1，录入以下代码：
Private Sub CommandButton1_Click()
Dim n As Integer'定义一个变量为整数型
n = 1
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Val(TextBox1.Text) * 2 + 1, NumColumns _
:=Val(TextBox2.Text), DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Selection.Tables(1).Rows.HeightRule = wdRowHeightExactly
'设定表格行高为固定值
Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text))
'设置表格行高为设置值，作为行间距
Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text))
'设置第一行行高为设置值
Do While n < Val(TextBox1.Text) + 1
Selection.EndKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=2
'将插入点移至下一行
Selection.Tables(1).Rows(2 * n).Height = Selection.Tables(1).Columns(1).PreferredWidth
'设行高等于列宽
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.EndKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=2
'将插入点移至下一行
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
'去除此行的内部框线，只余边框
n = n + 1
Loop
Selection.Tables(1).Rows(Val(TextBox1.Text) * 2 + 1).Height = CentimetersToPoints(Val(TextBox4.Text))
'设置末行高为设置值
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
'表格居中
With Selection.Tables(1)
.Borders(wdBorderLeft).LineWidth = wdLineWidth150pt
.Borders(wdBorderRight).LineWidth = wdLineWidth150pt
.Borders(wdBorderTop).LineWidth = wdLineWidth150pt
.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt
'设定表格边框为粗线
End With
Selection.EndKey Unit:=wdLine
Unload Me
End Sub
二、使用
与Word的稿纸向导或稿纸加载项相比，此程序做出的稿纸显然不适于在文档中直接使用，但在制作作文试卷时优势明显。其一，不受纸型限制;其二，因为是表格，所以能根据需要自由地添加、删除行列，还能在适当位置标注作文所要求的字数。
应用前，应先设定好试卷模板，然后进行试验，以找出试卷最适的格子大小和行列数，需要制作稿纸时，可直接在“常用”工具栏上单击“作文稿纸”按钮，也可以连续点击“工具”，“宏”，“宏…”，打开“宏”对话框，在左侧组合框中选择名为“作文稿纸”的宏，然后单击“运行”，即可启动宏程序，在随后出现的“作文稿纸设置”窗口中，根据需要修改默认设置，最后，单击“确定”按钮，程序将自动绘制作文稿纸表格，如果稿纸超出一页(或一栏)，选择稿纸中部的行删除即可。下面图4是在A3纸左右两栏中分别制作的20×16、20×10稿纸。
三、导出导入
在VBA编程窗口中，分别选择工程资源管理器中的UserForm1窗体和NewMacros模块，导出UserForm1.frm、UserForm1.frx和NewMacros.bas文件。如图5。
需要在其他电脑中使用这个程序时，把备份拷贝过来，启动VBA编程窗口，通过“文件”、“导入文件”将UserForm1.frm、和NewMacros.bas导入，在Word中就使用了。
