三、頁(yè)面設(shè)置與段落格式

　　首先進(jìn)行頁(yè)面設(shè)置，頁(yè)面上邊距、下邊距、左邊距、右邊距分別設(shè)為1英寸、1英寸、1.25英寸、1.25英寸, 默認(rèn)制表位長(zhǎng)度為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)

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

　　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　'懸掛縮進(jìn)1個(gè)制表位

　　End Sub

　　為了對(duì)選項(xiàng)進(jìn)行排版，自定義一個(gè)過(guò)程insLeftAndHangingIndent，其功能是根據(jù)參數(shù)str1傳入的選項(xiàng)內(nèi)容，將其作為段落寫(xiě)入Word文檔，設(shè)置字型、字體、字號(hào)及左縮進(jìn)和懸掛縮進(jìn)。

　　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'小四

　　'設(shè)置左縮進(jìn)與懸掛縮進(jìn)

　　myRange.ParagraphFormat.FirstLineIndent = CentimetersToPoints(-0.64)

　　myRange.ParagraphFormat.LeftIndent = CentimetersToPoints(1.48)

　　End Sub

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢(xún)時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總