不受纸张类型限制；其次

作文纸在语文考试中经常使用。Word有一个书写纸张的模板，但是有很多限制(比如相对固定的纸张类型、行数和列数等。)，这使得排版纸张相当不方便。经过尝试，作者找到了一种利用Word的VBA编程，通过绘制表格来实现考试用纸的方法。

一.方案编制

1.开始Word，单击工具，宏，记录新宏.接下来，在弹出的对话框中填写宏名称(在本例中为作文纸)，并选择保存宏的位置(在模板中或当前文档中)，如图1所示。

2.为了操作方便，这个宏可以在工具栏中指定为按钮。在“录制宏”对话框中点击工具栏按钮，在弹出的“自定义”对话框右侧选择宏命令Normal.NewMacros. Composition稿纸，用鼠标拖拽复制到常用工具栏，右键点击，选择对应的命令修改名称，并为其编辑一个小图标。结果如图2所示。

3.点击“录制宏”对话框中的“关闭”按钮，屏幕上会出现一个“录制宏”工具栏，点击停止按钮即可停止录制。

4.依次选择工具、宏、宏…在对话框中选择宏名称Composition Paper，点击编辑按钮打开vba编程窗口。输入以下代码：

子作文纸()

UserForm1。命令按钮1 .启用=真

UserForm1。显示

末端接头

5.插入表单用户表单1，其中插入了4个标签、4个文本框和一个按钮。分别设置它们的相关属性，其中，必选行文本框中的text属性的值设置为25，必选列文本框中的text属性的值设置为20，行距文本框中的text属性的值设置为0.5，上下空白行高文本框中的text属性的值设置为0.4，如图3所示。

6.双击命令按钮命令按钮1并输入以下代码：

私有子命令按钮1 _单击()

“将变量定义为整数”。

n=1

活动文档。表格。添加范围：=选择。范围，numrows 3360=Val(textbox 1。文本)* 2 1，数量_

:=Val(TextBox2。文本)，defaulttablebehavior :=wdword9 tablebehavior，autofitbehavior :=wdAutoFitFixed

选择。EndKey Unit:=wdRow，Extend:=True

选择。单元格。边框。LineStyle=wdLineStyleNone

选择。表(1). row . heightlrule=wdrow heightly

将表格行高设置为固定值

选择。表格(1)。行。高度=厘米。点(值(文本框3。文本))

将表格行高设置为行间距的设定值。

选择。表(1)。行(1)。高度=厘米拓扑点(Val(TextBox4。文本))

将第一行的行高设置为设定值。

当n值时执行(文本框1。文本)1

选择。EndKey Unit:=wdLine

选择。MoveRight Unit:=wdCharacter，Count:=2

将插入点移动到下一行。

选择。表(1)。行(2 * n)。高度=选择。表(1)。列(1)。首选宽度

将行高设置为大于列宽。

选择。EndKey Unit:=wdRow，Extend:=True

选择。EndKey Unit:=wdLine

选择。MoveRight Unit:=wdCharacter，Count:=2

将插入点移动到下一行。

选择。EndKey Unit:=wdRow，Extend:=True

选择。单元格。边框。LineStyle=wdLineStyleNone

移除此线的内部边框，只留下边框。

n=n 1

环

选择。表(1)。行(值(文本框1。文本)* 2 1)。高度=厘米拓扑点(Val(TextBox4。文本))

将最后一行高度设置为设定值。

选择。EndKey Unit:=wdRow，Extend:=True

选择。单元格。边框。LineStyle=wdLineStyleNone

选择。表格(1).行.对齐=wdAlignRowCenter

表格中心

选择。表(1)。边框。线宽=wdLineWidth150pt。边框(wdBorderRight)。线宽=wdLineWidth150pt。边框(wdBorderTop)。线宽=wdLineWidth150pt。边框(wdBorderBottom)。线宽=wdLineWidth150pt

将表格边框设置为粗线

以…结尾

选择。EndKey Unit:=wdLine

卸载我

末端接头

第二，使用

与Word的稿纸向导或稿纸插件相比，该程序制作的稿纸显然不适合直接在文档中使用，但在制作作文纸方面有明显优势。一是不受纸张类型限制；其次，因为是表格，可以根据需要自由增删行和列，还可以在适当的位置标注作文所需的字数。