許多人都知道Word文檔的重要性，而在VB.NET Word文檔也是很重要的，由于Microsoft Office套件的普及，Word文檔、電子表格文檔、電子幻燈片等文檔日漸常用。雖然在Office中各個程序的文檔可以方便地轉換，但是這種轉換是以失去文檔原本的格式為代價的。例如，在自動組卷系統(tǒng)中，存儲在Access數據庫中的試卷可以通過Access提供的導出功能產生Word文檔，但產生的文檔是無格式的，需花費大量時間重新排版方可符合用戶在試卷格式上的要求。

VB.NET Word文檔的創(chuàng)建

1、Visual Basic中創(chuàng)建Document對象

所有的工作都從Document對象開始，首先在Visual Basic中創(chuàng)建一個Document對象的實例，然后就可以對該實例進行各種可控制：

Dim newDoc As Word.Document  
Set newnewDoc = new Word.Document  

一旦創(chuàng)建了Document對象，就可以設置文檔的缺省格式，通過設置Content子對象的字體、行間距等屬性加以實現：

1. With newDoc  
2. .Content.Font.Name = "宋體"   
3. .Content.Font.Size = 12 
4. .Content.Paragraphs.LineSpacing = 15.5  
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 的表格。

1. 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)設置紙張大?。?/STRONG>

With newDoc.PageSetup  
.PageHeight = CentimetersToPoints(28.1)  
.PageWidth = CentimetersToPoints(38.9)  
End With  

newDoc.SaveAs FileName:="Sample.doc" 
newDoc.PrintOut