建站
咨詢
售后
建站咨詢
新聞中心
要想作為一個(gè)優(yōu)秀的編程人員，不得不每天都進(jìn)行學(xué)習(xí)，來(lái)增加自己的知識(shí)庫(kù)，以免被技術(shù)所淘汰。那么對(duì)于VB.NET的學(xué)習(xí)，同樣如此，不能有一刻的停歇。那么今天就為大家?guī)?lái)了VB.NET操作Word的一些經(jīng)驗(yàn)，以幫助大家學(xué)習(xí)。
創(chuàng)新互聯(lián)為企業(yè)級(jí)客戶提高一站式互聯(lián)網(wǎng)+設(shè)計(jì)服務(wù)，主要包括成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、重慶APP軟件開(kāi)發(fā)、微信小程序開(kāi)發(fā)、宣傳片制作、LOGO設(shè)計(jì)等，幫助客戶快速提升營(yíng)銷能力和企業(yè)形象，創(chuàng)新互聯(lián)各部門(mén)都有經(jīng)驗(yàn)豐富的經(jīng)驗(yàn)，可以確保每一個(gè)作品的質(zhì)量和創(chuàng)作周期，同時(shí)每年都有很多新員工加入，為我們帶來(lái)大量新的創(chuàng)意。
VB.NET操作Word之1，在project\references 中加入microsoft word 9.0 object library
VB.NET操作Word之2, 啟動(dòng)word
- Dim wApp As Word.Application
- Set wApp = New Word.Application
- wApp.Visible = True
關(guān)閉word
- wApp.Quit
- Set wApp = Nothing
VB.NET操作Word之3, 打開(kāi)文件
- Set wDoc = Documents.Add （新建）
- ActiveDocument.SaveAs Text1.Text （保存）
- Set wDoc = Documents.Open(FileName:=Text1.Text) （打開(kāi)指定文件）
以上的Documents 和 ActiveDocument 均是word object 中的已實(shí)例化了的對(duì)象，即不用set obj=new obj即可以使用的對(duì)象. 就像vb中的app、debug、err等對(duì)象，
文件打開(kāi)之后，獲取光標(biāo)所在位置mySelection即可給文件添加各種數(shù)據(jù)（文本，圖像，表格等等，）
VB.NET操作Word之4，插入文本
- Dim mySelection As Word.Selection
- Set mySelection = Documents.Application.Selection
注意上面的這兩行代碼，只要有這兩行代碼，就可以使用所有的word中的宏操作。以下的代碼就是從宏中拷過(guò)來(lái)的。
- With mySelection
- .InsertAfter Text1.Text & vbCrLf
- .Font.Name = "楷體_GB2312"
- .Font.Size = 16
- .ParagraphFormat.Alignment = 1
- End With
這里有必要提到宏（macro）在word編程的重要性，幾乎所有的word操作，只要你能夠通過(guò)word可以實(shí)現(xiàn)，就可以編程實(shí)現(xiàn)
VB.NET操作Word之5，插入圖像
- Documents.Application.Selection.InlineShapes.
AddPicture text1.text
VB.NET操作Word之6，插入表格
因?yàn)閑xcel中處理表格的能力要比word的處理能力要強(qiáng)，所以可以在excel中生成了表格之后再?gòu)?fù)制到word當(dāng)中
本文題目：VB.NET操作Word經(jīng)驗(yàn)總結(jié)
文章來(lái)源：http://m.5511xx.com/article/dpisjoc.html
