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

　　四、选择题的写入及排版

　　如果四个选项按四段(行)进行排版，则只要通过调用前面所定义的两个过程就能实现，但四个选项要按两行排版则有两种方法可供选择：一是分节分栏法：将四个选项按四段写入Word文档，并将它们设置成单独的一节，再采用分成两栏的方法实现;二是直接写入排版法：在同一行的两个选项之间插入若干个制表位实现对齐，编程中将涉及写入点的定位问题。

　　1、分节分栏法

　　选择题写入Word文档及排版操作在自定义过程insSelect中实现，传入参数mObj内封装了一道选择题;题号通过参数n传入;参数max传入的值是选项内容字符数的临界值，即当四个选项内容中字符数最多者如果超过了max，则四个选项排版成四段(行)，否则排成两行。其中用到的函数maxLen(mObj)返回值表示选择题mObj的四个选项内容中字符数的最大值。

　　Private Sub insSelect(mObj As Choice, ByRef n As Integer, max As Integer)

　　insTabIndent mObj.Sentence, n　　 '写入题干内容及题号

　　If maxLen(mObj) > max Then'按四段(行)并采用左缩进及悬挂缩进写入

　　insLeftAndHangingIndent "A) " + mObj.ChoiceA

　　insLeftAndHangingIndent "B) " + mObj.ChoiceB

　　insLeftAndHangingIndent "C) " + mObj.ChoiceC

　　insLeftAndHangingIndent "D) " + mObj.ChoiceD

　　ActiveDocument.Content.InsertParagraphAfter

　　n = n + 1

　　Else　　 '选项按缩进一个制表位形式写入，为后面的分节分栏做准备

　　Set tempRange = ActiveDocument.Content

　　tempRange.Collapse Direction:=wdCollapseEnd

　　tempRange.InsertAfter vbTab & "A) " & mObj.ChoiceA

　　tempRange.InsertParagraphAfter

　　tempRange.InsertAfter vbTab & "B) " & mObj.ChoiceB

　　tempRange.InsertParagraphAfter

　　tempRange.InsertAfter vbTab & "C) " & mObj.ChoiceC

　　tempRange.InsertParagraphAfter

　　tempRange.InsertAfter vbTab & "D) " & mObj.ChoiceD

　　tempRange.InsertParagraphAfter

　　tempRange.Font.Name = "宋体"

　　tempRange.Font.Size = 12'小四

　　n = n + 1　　 '题号增1，为写入下一题做准备

　　tempRange.Select　　 '选定四个选项所在的区域

　　If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

　　ActiveWindow.Panes(2).Close

　　End If

　　If ActiveWindow.ActivePane.View.Type <> wdPrintView Then

　　ActiveWindow.ActivePane.View.Type = wdPrintView

　　End If

　　'在选定区域的起始位置和末尾位置插入分节符

　　ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _

　　InsertBreak Type:=wdSectionBreakContinuous

　　Selection.Start = Selection.Start + 1

　　ActiveDocument.Range(Start:=Selection.End, _

　　End:=Selection.End).InsertBreak　Type:=wdSectionBreakContinuous

　　'将选定的文本分成两栏

　　With Selection.PageSetup.TextColumns

　　.SetCount NumColumns:=2

　　.EvenlySpaced = True

　　.LineBetween = False

　　.Width = CentimetersToPoints(6.95)

　　.Spacing = CentimetersToPoints(0)

　　End With

　　ActiveDocument.Content.InsertParagraphAfter

　　End If

　　End Sub

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总