語文考試中，經(jīng)常用到作文稿紙，Word中帶有稿紙模板，但有諸多限制(如紙型、行列數(shù)等相對固定)，在試卷排版時頗為不便。經(jīng)過嘗試，筆者找到一種利用Word的VBA編程，通過繪制表格實現(xiàn)考試用作文稿紙的方法。
一、編制程序
1.啟動Word，連續(xù)點擊“工具”，“宏”，“錄制新宏...”，在彈出的對話框中填寫宏名(此例為“作文稿紙”)，選擇宏要保存的位置(可以保存在模板中，也可以保存在當前文檔中)，如圖1所示。
2.為了方便操作，可以將此宏以按鈕的形式指定在工具欄中。單擊“錄制宏”對話框中的“工具欄”按鈕，在彈出的“自定義”對話框的右側(cè)，選中宏命令“Normal.NewMacros.作文稿紙”，用鼠標將其拖動復(fù)制到“常用”工具欄，在其上單擊右鍵，選擇相應(yīng)的命令修改名稱，為其編輯一個小圖標，結(jié)果如圖2所示。
3.單擊“錄制宏”對話框中的“關(guān)閉”按鈕，屏幕上將出現(xiàn)一個“錄制宏”工具欄，單擊停止按鈕停止錄制。
4.依次選擇“工具”、“宏”、“宏…”，在對話框中選擇宏名“作文稿紙”，單擊“編輯”按鈕，打開vba編程窗口。錄入如下代碼：
Sub 作文稿紙()
UserForm1.CommandButton1.Enabled = True
UserForm1.Show
End Sub
5.插入一個窗體UserForm1，在其中插入4個標簽，4個文本框，一個按鈕。分別設(shè)置它們的相關(guān)屬性，其中，“所需行數(shù)”文本框的“text”屬性值設(shè)為25，“所需列數(shù)”文本框的“text”屬性值設(shè)為20，“行間距”文本框的“text”屬性值設(shè)為0.5，“首尾空行高度”文本框的“text”屬性值設(shè)為0.4，如圖3所示
6.雙擊命令按鈕CommandButton1，錄入以下代碼：
Private Sub CommandButton1_Click()
Dim n As Integer '定義一個變量為整數(shù)型
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
'設(shè)定表格行高為固定值
Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text))
'設(shè)置表格行高為設(shè)置值，作為行間距
Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text))
'設(shè)置第一行行高為設(shè)置值
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
'設(shè)行高等于列寬
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èi)部框線，只余邊框
n = n + 1
Loop
Selection.Tables(1).Rows(Val(TextBox1.Text) * 2 + 1).Height = CentimetersToPoints(Val(TextBox4.Text))
'設(shè)置末行高為設(shè)置值
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
'設(shè)定表格邊框為粗線
End With
Selection.EndKey Unit:=wdLine
Unload Me
End Sub
二、使用
與Word的稿紙向?qū)Щ蚋寮埣虞d項相比，此程序做出的稿紙顯然不適于在文檔中直接使用，但在制作作文試卷時優(yōu)勢明顯。其一，不受紙型限制;其二，因為是表格，所以能根據(jù)需要自由地添加、刪除行列，還能在適當位置標注作文所要求的字數(shù)。