強化VB.NET Word文檔創建Document對象
許多人都知道Word文檔的重要性，而在VB.NET Word文檔也是很重要的，由于Microsoft Office套件的普及，Word文檔、電子表格文檔、電子幻燈片等文檔日漸常用。雖然在Office中各個程序的文檔可以方便地轉換，但是這種轉換是以失去文檔原本的格式為代價的。例如，在自動組卷系統中，存儲在Access數據庫中的試卷可以通過Access提供的導出功能產生Word文檔，但產生的文檔是無格式的，需花費大量時間重新排版方可符合用戶在試卷格式上的要求。
VB.NET Word文檔的創建
1、Visual Basic中創建Document對象
所有的工作都從Document對象開始，首先在Visual Basic中創建一個Document對象的實例，然后就可以對該實例進行各種可控制：
- Dim newDoc As Word.Document
- Set newnewDoc = new Word.Document
一旦創建了Document對象，就可以設置文檔的缺省格式，通過設置Content子對象的字體、行間距等屬性加以實現：
- With newDoc
- .Content.Font.Name = "宋體"
- .Content.Font.Size = 12
- .Content.Paragraphs.LineSpacing = 15.5
- End With
由此得到了一個空Word文檔。
2、向Word文檔中添加文本
接下來，向空文檔中添加文本，這將使用Paragraphs集合對象來完成此項工作。InsertAfter方法將文本插入到Selection 或 Range 對象后；InsertBefore 方法將文本插入到Selection 或 Range 對象前。以下代碼向文檔結尾處添加一個段落并設置本段落格式：
- With newDoc
- .Content.InsertAfter "示例段落…"
- .Paragraphs(NewDoc.Paragraphs.count).Alignment = wdAlignParagraphCenter
- .Paragraphs(NewDoc.Paragraphs.count).Range.Font.Bold = True
- .Paragraphs(NewDoc.Paragraphs.count).Range.Font.Size = 28
- End With
可用 Paragraphs(index) 返回一個 Paragraph 對象，其中 index 為索引號；count屬性值表示該文檔主文字部分中的Paragraph對象數。NewDoc.Paragraphs.count恰好為當前正在添加的文本段落的索引號。
如果需要插入表格，可以使用Table 對象。Add 方法可以在指定范圍內新增一表格。下例在活動文檔的起始處添加一 3 x 4 的表格。
- Set myRange = ActiveDocument.Range(Start:=0, End:=0)
- ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
以可以使用制表字符得到表格。以下代碼在文檔尾部插入一個1x4 的表格。
- NewDoc.Content.InsertAfter "得分" & vbTab & " " & vbTab & "評卷人" & vbTab & " " & vbCr
當所有段落都添加到文檔以后，可以使用 PageSetup對象進行頁面設置，這需要通過設置PageSetup對象的各種屬性來完成。
1)設置分欄和欄間距：
- newDoc.PageSetup.TextColumns.SetCount NumColumns:=2
- newDoc.PageSetup.TextColumns.Spacing = CentimetersToPoints(2)
2)設置頁邊距：
- With newDoc.PageSetup
- .TopMargin = CentimetersToPoints(4.5)
- .BottomMargin = CentimetersToPoints(1.5)
- .LeftMargin = CentimetersToPoints(0.8)
- .RightMargin = CentimetersToPoints(2)
- End With
3)設置紙張大小：
- With newDoc.PageSetup
- .PageHeight = CentimetersToPoints(28.1)
- .PageWidth = CentimetersToPoints(38.9)
- End With
其他的設置項目不再詳述。
3、輸出文檔
對創建完畢的文檔，我們可以選自保存為磁盤文件或直接打印輸出：
- newDoc.SaveAs FileName:="Sample.doc"
- newDoc.PrintOut
該系統產生的試卷要求直接用于考核和選拔基層干部的考試中，首先由出題者輸入試卷參數，即組卷規則，然后由軟件自動組卷并輸出Word格式的試卷。筆者應用上述方法開發的軟件系統完全滿足了用戶需求。系統現已投入運行，極大地提高了工作效率，獲得了用戶的好評。
結束語
本文提出的在VB.NET Word文檔創建的方法基于對象模型，實用性強，也可以用于其它支持ActiveX的開發平臺中。
