2011年计算机等考二级VB辅导知识技巧总结(18)

　　三、页面设置与段落格式

　　首先进行页面设置，页面上边距、下边距、左边距、右边距分别设为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辅导知识技巧汇总