VB.NET如何實現Word文檔創建Document對象

這篇文章主要介紹了VB.NET如何實現Word文檔創建Document對象，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

VB.NET Word文檔的創建

1、Visual Basic中創建Document對象

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

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

一旦創建了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)設置紙張大小：

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文檔創建Document對象”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!