vb.net怎么對word進(jìn)行操作？？？？

不清楚報(bào)錯(cuò)信息，只能給以下提示：

采用H5頁面制作+css3國際標(biāo)準(zhǔn)網(wǎng)站建設(shè)，讓網(wǎng)站自動(dòng)適應(yīng)用戶使用終端設(shè)備，PC、平板、手機(jī)等，一個(gè)網(wǎng)址適應(yīng)，一套內(nèi)容統(tǒng)一戰(zhàn)略，節(jié)約企業(yè)資源。創(chuàng)新互聯(lián)還提供網(wǎng)站后期營銷如：軟文平臺、友情鏈接、廣告投放平臺等。一般建站公司不為企業(yè)填充資料，更談不上內(nèi)容策劃，結(jié)果導(dǎo)致網(wǎng)站界面優(yōu)秀，內(nèi)容卻十分空泛或整體不協(xié)調(diào)，內(nèi)容策劃、內(nèi)容填充請交給我們。

1、工程--引用,選Microsoft Word 11.0 Object Library

2、聲明并賦值word程序相關(guān)變量，注意步驟不能亂。

Dim appObj As New Word.Application '新建一個(gè)word程序?qū)ο?/p>

Dim docObj As Word.Document '聲明文檔對象，也可以用new新建

Dim strFile As String = "D:\MyDocu.doc"

docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打開文檔

docObj.Activate()'激活文檔

.......

With docObj

.Save()

.Close()

End With

docObj = Nothing

appObj = Nothing

注意：聲明word對象和文檔對象，應(yīng)該提示錯(cuò)誤，你只需要點(diǎn)擊“示警”圖標(biāo)，在展打的選項(xiàng)里選第1項(xiàng)導(dǎo)入就可以了。

vb 調(diào)用Word打開文檔

思路：讀取注冊表獲得word的安裝路徑，然后shell命令加參數(shù)打開。

簡單說一下這個(gè)思路：

首先在注冊表

[hkey_classer_root]

中查找注冊文件類型，我們以.doc為例，那么在[hkey_classer_root]

中可以找到.doc項(xiàng)，查看右邊的鍵，有一個(gè)鍵名為“默認(rèn)”，其對應(yīng)鍵值是【word.document.8】。

利用這個(gè)查詢結(jié)果，在[hkey_classer_root]中重新查找名為【word.document.8】的項(xiàng)，就會(huì)發(fā)現(xiàn)這項(xiàng)存在子項(xiàng)shell

-

open

-

command，在command項(xiàng)中存一個(gè)名為“默認(rèn)”的鍵，其鍵值是【"c:\program

files\microsoft

office\office14\winword.exe"

/n

"%1"】（這里是以我的電腦為例的），這就是打開對應(yīng)文件的程序路徑和參數(shù)。

至于vb.net讀取注冊表，網(wǎng)上有很多示例了，這里不再贅述。

VB.NET如何打開word文檔

在窗體上放一個(gè)按鈕，一個(gè)Webbrowser

簡單代碼如下，其他排錯(cuò)處理自己來：

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?open?As?New?OpenFileDialog

open.ShowDialog()

WebBrowser1.Navigate(open.FileName)

End?Sub

效果如圖：

vb.net操作word

將WDApp.wdParagraph直接修改成數(shù)值4，也就是變成 Unit:=4 試試看！

同時(shí)將后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2,

將Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2

如果今后遇到這種問題，直接打開Word，然后

sub xx()

msgbox wdParagraph

end sub

就可以得到wdParagraph的真實(shí)值。

vb.net 關(guān)于word 問題請教

從菜單：項(xiàng)目\添加引用，在打開的對話框的.Net頁面中找到：Microsoft.Office.Interop.Word

代碼如下：

Dim w As New Microsoft.Office.Interop.Word.Application

Dim d As Microsoft.Office.Interop.Word.Document = w.Documents.Add '添加一文檔

d.SaveAs("c:\myWord1") '保存為myWord1文件名。

d.Close()

在Com頁面也有Word對象庫的引用，大體一樣吧，只是路徑有所不同。

VB怎樣實(shí)現(xiàn)word文件調(diào)用？

VB.NET寫 word文件代碼：

Dim wordApp As New Word.Application

Dim objSelection As Word.Selection

Dim Title As String = "K388+400常勝溝大橋"

wordApp.Documents.Add()

oDocument = wordApp.ActiveDocument

objSelection = wordApp.Selection

wordApp.Selection.TypeText(Title)

objSelection.TypeParagraph()

wordApp.Selection.TypeText("一、橋梁基本狀況卡片")

objSelection.TypeParagraph()

wordApp.Selection.TypeText("A行政數(shù)據(jù)識別，B技術(shù)結(jié)構(gòu)數(shù)據(jù)")

objSelection.TypeParagraph()

wordApp.Selection.TypeText("A行政數(shù)據(jù)識別。B技術(shù)結(jié)構(gòu)數(shù)據(jù)。C檔案資料（全、不全、或無）。D最近技術(shù)狀況評定")

objSelection.InsertBreak() '插入分頁符，相當(dāng)于2個(gè)字符

objSelection.TypeText("E修建工程記錄")

SetRange(1)

With wordApp.Selection

.Font.Size = 18 '字體（小二）

.ParagraphFormat.Alignment = 1 '水平居中

.Font.Bold = True

End With

SetRange(2)

With wordApp.Selection

.Font.Size = 14 '字體（四）

.Font.Bold = True

.Font.Name = "華文琥珀"

End With

SetRange(25, 44, True)

With wordApp.Selection

.Font.Size = 9 '字體（小五）

.Font.Bold = True

.Font.Italic = True

End With

SetRange(4, 2)

With wordApp.Selection

.Font.Size = 9 '字體（小五）

.Font.Bold = True

End With

'文件保存

oDocument.SaveAs("d:\" Title ".doc")

wordApp.Visible = True

網(wǎng)頁名稱：vb.net調(diào)起word,vb·net
鏈接分享：http://chinadenli.net/article30/dsipdpo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、網(wǎng)站排名、微信公眾號、面包屑導(dǎo)航、做網(wǎng)站、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)