2、直接插入排版法

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

　　insTabIndent "A) " + mObj.ChoiceA, 0　　 '寫入選項A

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

　　'x記錄下選項A所在的段落數

　　'每次循環插入一個制表位，并在循環條件中進行位置檢測

　　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　　 '在選項A的內容后插入一個制表位

　　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)

　　'當檢測到寫入點位置距與頁面左邊的距離超過280磅時停止插入制表位

　　Selection.TypeText "C) " + mObj.ChoiceC　　 '寫入選項C

　　'以下處理下一行的選項B和選項D，方法同上

　　insTabIndent "B) " + mObj.ChoiceB, 0　　 '寫入選項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　　 '寫入選項D

　　appObj.ActiveDocument.Content.InsertParagraphAfter

　　五、結語

　　前述兩種選擇題的排版方式均已在實際的試卷自動生成系統的排版應用中進行實測，測試表明兩種方法都能得到較為規范、美觀的排版效果。分節分欄法實現思想較為簡單，但由于生成的文檔中有大量的分節符，如果對于生成的文檔要作手工調整，可能會帶來一點麻煩;直接插入排版法的好處是不分節，便于后期的手工調整，但生成文檔的速度稍慢。

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

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

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

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