VB.NET如何實(shí)現(xiàn)Word文檔創(chuàng)建Document對(duì)象

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

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

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

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

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

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

1. With newDoc  

2. .Content.Font.Name = "宋體"   

3. .Content.Font.Size = 12 

4. .Content.Paragraphs.LineSpacing = 15.5  

5. End With    

由此得到了一個(gè)空Word文檔。

2、向Word文檔中添加文本

接下來，向空文檔中添加文本，這將使用Paragraphs集合對(duì)象來完成此項(xiàng)工作。InsertAfter方法將文本插入到Selection 或 Range 對(duì)象后；InsertBefore 方法將文本插入到Selection 或 Range 對(duì)象前。以下代碼向文檔結(jié)尾處添加一個(gè)段落并設(shè)置本段落格式：

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) 返回一個(gè) Paragraph 對(duì)象，其中 index 為索引號(hào)；count屬性值表示該文檔主文字部分中的Paragraph對(duì)象數(shù)。NewDoc.Paragraphs.count恰好為當(dāng)前正在添加的文本段落的索引號(hào)。

如果需要插入表格，可以使用Table 對(duì)象。Add 方法可以在指定范圍內(nèi)新增一表格。下例在活動(dòng)文檔的起始處添加一 3 x 4 的表格。

Set myRange = ActiveDocument.Range(Start:=0, End:=0)  ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

以可以使用制表字符得到表格。以下代碼在文檔尾部插入一個(gè)1x4 的表格。

1. NewDoc.Content.InsertAfter "得分" & vbTab & " " & vbTab & "評(píng)卷人" & vbTab & " " & vbCr  

當(dāng)所有段落都添加到文檔以后，可以使用 PageSetup對(duì)象進(jìn)行頁面設(shè)置，這需要通過設(shè)置PageSetup對(duì)象的各種屬性來完成。

1)設(shè)置分欄和欄間距：

newDoc.PageSetup.TextColumns.SetCount NumColumns:=2 newDoc.PageSetup.TextColumns.Spacing = CentimetersToPoints(2)

2)設(shè)置頁邊距：

With newDoc.PageSetup  .TopMargin = CentimetersToPoints(4.5)  .BottomMargin = CentimetersToPoints(1.5)  .LeftMargin = CentimetersToPoints(0.8)  .RightMargin = CentimetersToPoints(2)  End With

3)設(shè)置紙張大小：

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

其他的設(shè)置項(xiàng)目不再詳述。

3、輸出文檔

對(duì)創(chuàng)建完畢的文檔，我們可以選自保存為磁盤文件或直接打印輸出：

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

該系統(tǒng)產(chǎn)生的試卷要求直接用于考核和選拔基層干部的考試中，首先由出題者輸入試卷參數(shù)，即組卷規(guī)則，然后由軟件自動(dòng)組卷并輸出Word格式的試卷。筆者應(yīng)用上述方法開發(fā)的軟件系統(tǒng)完全滿足了用戶需求。系統(tǒng)現(xiàn)已投入運(yùn)行，極大地提高了工作效率，獲得了用戶的好評(píng)。

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VB.NET如何實(shí)現(xiàn)Word文檔創(chuàng)建Document對(duì)象”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來學(xué)習(xí)!