不清楚報(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)入就可以了。
思路:讀取注冊(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)上有很多示例了,這里不再贅述。
在窗體上放一個(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
效果如圖:
將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í)值。
從菜單:項(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.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