网站地图 | Tags | 热门标准 | 最新标准 | 订阅
您当前的位置:

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

时间: 2015-10-10 来源: 未知 作者: yqljgl6688 点击:

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

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

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中就使用了。

相关资料

下载排行 | 下载帮助 | 下载声明 | 信息反馈 | 网站地图  360book | 联系我们谢谢