Word高级教程（三）

《Word高级教程（三）》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、081.Word中利用VBA编程制作考试用作文稿纸语文考试中，经常用到作文稿纸，Word中带有稿纸模板，但有诸多限制（如纸型、行列数等相对固定），在试卷排版时颇为不便。经过尝试，笔者找到一种利用Word的VBA编程，通过绘制表格实现考试用作文稿纸的方法。一、编制程序1．启动Word，连续点击“工具”，“宏”，“录制新宏...”，在弹出的对话框中填写宏名（此例为“作文稿纸”），选择宏要保存的位置（可以保存在模板中，也可以保存在当前文档中），如图1所示。2．为了方便操作，可以将此宏以按钮的形式指定在工具栏中。单击

2、“录制宏”对话框中的“工具栏”按钮，在弹出的“自定义”对话框的右侧，选中宏命令“Normal.NewMacros.作文稿纸”，用鼠标将其拖动复制到“常用”工具栏，在其上单击右键，选择相应的命令修改名称，为其编辑一个小图标，结果如图2所示。3．单击“录制宏”对话框中的“关闭”按钮，屏幕上将出现一个“录制宏”工具栏，单击停止按钮停止录制。4．依次选择“工具”、“宏”、“宏…”，在对话框中选择宏名“作文稿纸”，单击“编辑”按钮，打开vba编程窗口。录入如下代码：Sub作文稿纸()《word高级教程》UserFor

3、m1.CommandButton1.Enabled=TrueUserForm1.Show5．插入一个窗体UserForm1，在其中插入4个标签，4个文本框，一个按钮。分别设置它们的相关属性，其中，“所需行数”文本框的“text”属性值设为25，“所需列数”文本框的“text”属性值设为20，“行间距”文本框的“text”属性值设为0.5，“首尾空行高度”文本框的“text”属性值设为0.4，如图3所示。6．双击命令按钮CommandButton1，录入以下代码：PrivateSubCommandButton1

4、_Click()DimnAsInteger'定义一个变量为整数型n=1ActiveDocument.Tables.AddRange:=Selection.Range,NumRows:=Val(TextBox1.Text)*2+1,NumColumns_:=Val(TextBox2.Text),DefaultTableBehavior:=wdWord9TableBehavior,AutoFitBehavior:=wdAutoFitFixedSelection.EndKeyUnit:=wdRow,Extend:=

5、TrueSelection.Cells.Borders(wdBorderVertical).LineStyle=wdLineStyleNoneSelection.Tables(1).Rows.HeightRule=wdRowHeightExactly'设定表格行高为固定值Selection.Tables(1).Rows.Height=CentimetersToPoints(Val(TextBox3.Text))'设置表格行高为设置值，作为行间距Selection.Tables(1).Rows(1).Heigh

6、t=CentimetersToPoints(Val(TextBox4.Text))'设置第一行行高为设置值DoWhilen

7、'设行高等于列宽Selection.EndKeyUnit:=wdRow,Extend:=TrueSelection.EndKeyUnit:=wdLineSelection.MoveRightUnit:=wdCharacter,Count:=2'将插入点移至下一行Selection.EndKeyUnit:=wdRow,Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle=wdLineStyleNone'去除此行的内部框线，只余边框n=n+

8、1LoopSelection.Tables(1).Rows(Val(TextBox1.Text)*2+1).Height=CentimetersToPoints(Val(TextBox4.Text))'设置末行高为设置值Selection.EndKeyUnit:=wdRow,Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle