日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間:8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET操作Word經(jīng)驗總結(jié)

要想作為一個優(yōu)秀的編程人員,不得不每天都進行學(xué)習(xí),來增加自己的知識庫,以免被技術(shù)所淘汰。那么對于VB.NET的學(xué)習(xí),同樣如此,不能有一刻的停歇。那么今天就為大家?guī)砹薞B.NET操作Word的一些經(jīng)驗,以幫助大家學(xué)習(xí)。

創(chuàng)新互聯(lián)為企業(yè)級客戶提高一站式互聯(lián)網(wǎng)+設(shè)計服務(wù),主要包括成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、重慶APP軟件開發(fā)、微信小程序開發(fā)、宣傳片制作、LOGO設(shè)計等,幫助客戶快速提升營銷能力和企業(yè)形象,創(chuàng)新互聯(lián)各部門都有經(jīng)驗豐富的經(jīng)驗,可以確保每一個作品的質(zhì)量和創(chuàng)作周期,同時每年都有很多新員工加入,為我們帶來大量新的創(chuàng)意。 

VB.NET操作Word之1,在project\references 中加入microsoft word 9.0 object library

VB.NET操作Word之2, 啟動word

 
 
 
  1. Dim wApp As Word.Application 
  2. Set wApp = New Word.Application 
  3. wApp.Visible = True 

關(guān)閉word

 
 
 
  1. wApp.Quit 
  2. Set wApp = Nothing 

VB.NET操作Word之3, 打開文件

 
 
 
  1. Set wDoc = Documents.Add (新建) 
  2. ActiveDocument.SaveAs Text1.Text (保存) 
  3. Set wDoc = Documents.Open(FileName:=Text1.Text) (打開指定文件) 

以上的Documents 和 ActiveDocument 均是word object 中的已實例化了的對象,即不用set obj=new obj即可以使用的對象. 就像vb中的app、debug、err等對象,
文件打開之后,獲取光標所在位置mySelection即可給文件添加各種數(shù)據(jù)(文本,圖像,表格等等,)

VB.NET操作Word之4,插入文本

 
 
 
  1. Dim mySelection As Word.Selection 
  2. Set mySelection = Documents.Application.Selection 

注意上面的這兩行代碼,只要有這兩行代碼,就可以使用所有的word中的宏操作。以下的代碼就是從宏中拷過來的。

 
 
 
  1. With mySelection 
  2. .InsertAfter Text1.Text & vbCrLf 
  3. .Font.Name = "楷體_GB2312" 
  4. .Font.Size = 16 
  5. .ParagraphFormat.Alignment = 1 
  6. End With 

這里有必要提到宏(macro)在word編程的重要性,幾乎所有的word操作,只要你能夠通過word可以實現(xiàn),就可以編程實現(xiàn)

VB.NET操作Word之5,插入圖像

 
 
 
  1. Documents.Application.Selection.InlineShapes.
    AddPicture text1.text 

VB.NET操作Word之6,插入表格

因為excel中處理表格的能力要比word的處理能力要強,所以可以在excel中生成了表格之后再復(fù)制到word當(dāng)中


網(wǎng)站名稱:VB.NET操作Word經(jīng)驗總結(jié)
URL網(wǎng)址:http://www.5511xx.com/article/dpisjoc.html