三、頁面設置與段落格式

　　首先進行頁面設置，頁面上邊距、下邊距、左邊距、右邊距分別設為1英寸、1英寸、1.25英寸、1.25英寸, 默認制表位長度為0.33英寸。

　　With ActiveDocument.PageSetup

　　.TopMargin = InchesToPoints(1)

　　.BottomMargin = InchesToPoints(1)

　　.LeftMargin = InchesToPoints(1.25)

　　.RightMargin = InchesToPoints(1.25)

　　End With

　　ActiveDocument.DefaultTabStop = InchesToPoints(0.33)

　　為了對題干部分進行排版，先自定義一個過程insTabIndent，其功能是根據第一個參數str1傳入的題干內容及第二個參數Num傳入的本題題號，在題干內容前加上題號,若Num為0，則表示不加題號;在題號后設置一個制表位，使前、后題的題干內容的第一個字符對齊;對題干所在段落設置懸掛縮進一個制表。

　　Private Sub insTabIndent(str1 As String, Num As Integer)

　　Dim s As String

　　If Num < 10 Then s = " " + Trim(str(Num)) + "." Else s = Trim(str(Num)) + "."

　　If Num = 0 Then s = ""

　　Set myRange = appObj.ActiveDocument.Content

　　myRange.Collapse Direction:=wdCollapseEnd

　　myRange.InsertAfter s & vbTab & str1

　　myRange.InsertParagraphAfter

　　myRange.Font.Name = "宋體"

　　myRange.Font.Size = 12

　　myRange.ParagraphFormat.TabHangingIndent 1　'懸掛縮進1個制表位

　　End Sub

　　為了對選項進行排版，自定義一個過程insLeftAndHangingIndent，其功能是根據參數str1傳入的選項內容，將其作為段落寫入Word文檔，設置字型、字體、字號及左縮進和懸掛縮進。

　　Private Sub insLeftAndHangingIndent(str1 As String)

　　Set myRange = ActiveDocument.Content

　　myRange.Collapse Direction:=wdCollapseEnd

　　myRange.InsertAfter str1

　　myRange.InsertParagraphAfter

　　myRange.Font.Name = "宋體"

　　myRange.Font.Size = 12'小四

　　'設置左縮進與懸掛縮進

　　myRange.ParagraphFormat.FirstLineIndent = CentimetersToPoints(-0.64)

　　myRange.ParagraphFormat.LeftIndent = CentimetersToPoints(1.48)

　　End Sub

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總