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

核心提示： 6．双击命令按钮CommandButton1，录入以下代码：Private Sub CommandButton1_Click()Dim n As Integer'定义一个变量为整数型n = 1ActiveDocument.Tables.Add Range:=Selection.Ra

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

二、使用