2、直接插入排版法

　　這種方法是將選項(xiàng)A與選項(xiàng)C作為同一行寫(xiě)入、選項(xiàng)B與選項(xiàng)D作為同一行寫(xiě)入，關(guān)鍵在于要求上一行的C選項(xiàng)與下一行的D選項(xiàng)要求對(duì)齊，定位方法是在選項(xiàng)A的末尾與選項(xiàng)C、選項(xiàng)B的末尾與選項(xiàng)D之間插入若干個(gè)制表位,模擬手工調(diào)整的方法進(jìn)行對(duì)齊。但上、下行要分別插入多少個(gè)制表位才能對(duì)齊呢?這要借助于Selection對(duì)象的Information屬性進(jìn)行檢測(cè)。Selection.Information(wdHorizontalPositionRelativeToPage)可以返回指定的所選內(nèi)容或區(qū)域的水平位置，該位置是所選內(nèi)容或區(qū)域的左邊與頁(yè)面的左邊之間的距離，以磅為單位(72磅 = 1英寸)。具體方法是每插入一個(gè)制表位就將選定區(qū)域收縮為選定區(qū)域后一個(gè)字符，同時(shí)檢測(cè)它距頁(yè)面的左邊之間的距離，直到距離達(dá)到某個(gè)設(shè)定值時(shí)就停止插入。具體程序如下：

　　insTabIndent "A) " + mObj.ChoiceA, 0　　 '寫(xiě)入選項(xiàng)A

　　x = appObj.ActiveDocument.Content.Paragraphs.Count – 1

　　'x記錄下選項(xiàng)A所在的段落數(shù)

　　'每次循環(huán)插入一個(gè)制表位，并在循環(huán)條件中進(jìn)行位置檢測(cè)

　　Do

　　Set tempRange = appObj.ActiveDocument.Range(appObj.ActiveDocument.Content.Paragraphs(x). _

　　Range.End - 1, appObj.ActiveDocument.Content.Paragraphs(x).Range.End)

　　tempRange.Select

　　Selection.TypeText vbTab　　 '在選項(xiàng)A的內(nèi)容后插入一個(gè)制表位

　　Set tempRange = appObj.ActiveDocument.Range(appObj.ActiveDocument.Content.Paragraphs(x). _

　　Range.End - 1, appObj.ActiveDocument.Content.Paragraphs(x).Range.End)

　　tempRange.Select　　 '選定區(qū)域設(shè)為當(dāng)前區(qū)域的最后位置

　　Loop While (Selection.Information(wdHorizontalPositionRelativeToPage) < 280)

　　'當(dāng)檢測(cè)到寫(xiě)入點(diǎn)位置距與頁(yè)面左邊的距離超過(guò)280磅時(shí)停止插入制表位

　　Selection.TypeText "C) " + mObj.ChoiceC　　 '寫(xiě)入選項(xiàng)C

　　'以下處理下一行的選項(xiàng)B和選項(xiàng)D，方法同上

　　insTabIndent "B) " + mObj.ChoiceB, 0　　 '寫(xiě)入選項(xiàng)B

　　x = appObj.ActiveDocument.Content.Paragraphs.Count - 1

　　Do

　　Set tempRange = appObj.ActiveDocument.Range(appObj.ActiveDocument.Content.Paragraphs(x). _

　　Range.End - 1, appObj.ActiveDocument.Content.Paragraphs(x).Range.End)

　　tempRange.Select

　　Selection.TypeText vbTab

　　Set tempRange = appObj.ActiveDocument.Range(appObj.ActiveDocument.Content.Paragraphs(x). _

　　Range.End - 1, appObj.ActiveDocument.Content.Paragraphs(x).Range.End)

　　tempRange.Select

　　Loop While (Selection.Information(wdHorizontalPositionRelativeToPage) < 280)

　　Selection.TypeText "D) " + mObj.ChoiceD　　 '寫(xiě)入選項(xiàng)D

　　appObj.ActiveDocument.Content.InsertParagraphAfter

　　五、結(jié)語(yǔ)

　　前述兩種選擇題的排版方式均已在實(shí)際的試卷自動(dòng)生成系統(tǒng)的排版應(yīng)用中進(jìn)行實(shí)測(cè)，測(cè)試表明兩種方法都能得到較為規(guī)范、美觀的排版效果。分節(jié)分欄法實(shí)現(xiàn)思想較為簡(jiǎn)單，但由于生成的文檔中有大量的分節(jié)符，如果對(duì)于生成的文檔要作手工調(diào)整，可能會(huì)帶來(lái)一點(diǎn)麻煩;直接插入排版法的好處是不分節(jié)，便于后期的手工調(diào)整，但生成文檔的速度稍慢。

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(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í)技巧匯總