语文考试中，经常用到作文稿纸，word中带有稿纸模板，但有诸多限制（如纸型、行列数等相对固定），在试卷排版时颇为不便。经过尝试，笔者找到一种利用word的vba编程，通过绘制表格实现考试用作文稿纸的方法。
一、编制程序 WZ{yw;-2L_�$[$wHj [ 本 资 料 来 源 于 贵 州 学 习 网 电脑课堂办公软件 http://Www.gzU521.com ] WZ{yw;-2L_�$[$wHj
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
本文共2页：第
[1] [2] 页
页面打开中,请稍候...
您现在的位置:
