WEB开发网
开发学院软件教学办公软件Word Word中利用VBA编程制作考试用作文稿纸 阅读

Word中利用VBA编程制作考试用作文稿纸

 2007-01-11 19:47:15 来源:WEB开发网   
核心提示:语文考试中,经常用到作文稿纸,Word中利用VBA编程制作考试用作文稿纸,Word中带有稿纸模板,但有诸多限制(如纸型、行列数等相对固定),“行间距”文本框的“text”属性值设为0.5,“首尾空行高度”文本框的“text”

语文考试中,经常用到作文稿纸,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所示。

1 2 3  下一页

Tags:Word 利用 VBA

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接