真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.net調(diào)起word,vb·net

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

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

采用H5頁(yè)面制作+css3國(guó)際標(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íng)銷如:軟文平臺(tái)友情鏈接、廣告投放平臺(tái)等。一般建站公司不為企業(yè)填充資料,更談不上內(nèi)容策劃,結(jié)果導(dǎo)致網(wǎng)站界面優(yōu)秀,內(nèi)容卻十分空泛或整體不協(xié)調(diào),內(nèi)容策劃、內(nèi)容填充請(qǐng)交給我們。

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 '聲明文檔對(duì)象,也可以用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對(duì)象和文檔對(duì)象,應(yīng)該提示錯(cuò)誤,你只需要點(diǎn)擊“示警”圖標(biāo),在展打的選項(xiàng)里選第1項(xiàng)導(dǎo)入就可以了。

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

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

簡(jiǎn)單說(shuō)一下這個(gè)思路:

首先在注冊(cè)表

[hkey_classer_root]

中查找注冊(cè)文件類型,我們以.doc為例,那么在[hkey_classer_root]

中可以找到.doc項(xiàng),查看右邊的鍵,有一個(gè)鍵名為“默認(rèn)”,其對(duì)應(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"】(這里是以我的電腦為例的),這就是打開對(duì)應(yīng)文件的程序路徑和參數(shù)。

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

VB.NET如何打開word文檔

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

簡(jiǎn)單代碼如下,其他排錯(cuò)處理自己來(lái):

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

如果今后遇到這種問(wèn)題,直接打開Word,然后

sub xx()

msgbox wdParagraph

end sub

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

vb.net 關(guān)于word 問(wèn)題請(qǐng)教

從菜單:項(xiàng)目\添加引用,在打開的對(duì)話框的.Net頁(yè)面中找到: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頁(yè)面也有Word對(duì)象庫(kù)的引用,大體一樣吧,只是路徑有所不同。

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ù)識(shí)別,B技術(shù)結(jié)構(gòu)數(shù)據(jù)")

objSelection.TypeParagraph()

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

objSelection.InsertBreak() '插入分頁(yè)符,相當(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


新聞標(biāo)題:vb.net調(diào)起word,vb·net
URL地址:http://weahome.cn/article/dsipdpo.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部