语文考试中，经常用到作文稿纸，Word中带有稿纸模板，但有诸多限制(如纸型、行列数等相对固定)，在试卷排版时颇为不便。经过尝试，笔者找到一种利用Word的VBA编程，通过绘制表格实现考试用作文稿纸的方法。

一、编制程序

1.启动Word，连续点击“工具”，“宏”，“录制新宏...”，在弹出的对话框中填写宏名(此例为“作文稿纸”)，选择宏要保存的位置(可以保存在模板中，也可以保存在当前文档中)，如图1所示。

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所示

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稿纸。

上一篇：word做表格教程基本操作：Word2007巧设首字下沉突出段落 下一篇：word排版教程：Word2010:定义编号格式的秘技

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。