不清楚報錯信息,只能給以下提示:
慶安網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)!從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站等網(wǎng)站項目制作,到程序開發(fā),運(yùn)營維護(hù)。創(chuàng)新互聯(lián)2013年至今到現(xiàn)在10年的時間,我們擁有了豐富的建站經(jīng)驗和運(yùn)維經(jīng)驗,來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。
1、工程--引用,選Microsoft Word 11.0 Object Library
2、聲明并賦值word程序相關(guān)變量,注意步驟不能亂。
Dim appObj As New Word.Application '新建一個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)該提示錯誤,你只需要點擊“示警”圖標(biāo),在展打的選項里選第1項導(dǎo)入就可以了。
將WDApp.wdParagraph直接修改成數(shù)值4,也就是變成 Unit:=4 試試看!
同時將后面的:Alignment:=WDAPP.wdAlignTabRight改成:Alignment:=2,
將Leader:=WDAPP.wdTabLeaderDashes改成: Leader:=2
如果今后遇到這種問題,直接打開Word,然后
sub xx()
msgbox wdParagraph
end sub
就可以得到wdParagraph的真實值。
從菜單:項目\添加引用,在打開的對話框的.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對象庫的引用,大體一樣吧,只是路徑有所不同。
添加spire.doc.jar為依賴,百度搜索免費(fèi)版的下載即可
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing
Namespace SetRowSpace
Class Program
? Shared? Sub Main(ByVal args() As String)
? ? ? '創(chuàng)建文檔
? ? ? Document doc? =? New Document()
? ? ? '添加section
? ? ? Dim s As Section =? doc.AddSection()
? ? ? '添加段落
? ? ? Dim para As Paragraph =? s.AddParagraph()
? ? ? para.AppendText("這是測試文字,這是測試文字,這是測試文字,這是測試文字,這是測試文字," +
? ? ? ? ? "這是測試文字,這是測試文字,這是測試文字,這是測試文字,這是測試文字,這是測試文字,"+
? ? ? ? ? "這是測試文字,這是測試文字,這是測試文字,這是測試文字。")
? ? ? '設(shè)置段落中行距
? ? ? para.Format.LineSpacing = 20f
? ? ? '創(chuàng)建段落樣式
? ? ? Dim style As ParagraphStyle =? New ParagraphStyle(doc)
? ? ? style.Name = "paraStyle"
? ? ? style.CharacterFormat.FontName = "宋體"
? ? ? style.CharacterFormat.FontSize = 13
? ? ? doc.Styles.Add(style)
? ? ? '應(yīng)用段落樣式
? ? ? para.ApplyStyle("paraStyle")
? ? ? '保存文檔
? ? ? doc.SaveToFile("SetLineSpacing.docx", FileFormat.Docx2013)
? ? ? System.Diagnostics.Process.Start("SetLineSpacing.docx")
? End Sub
End Class
End Namespace
文章題目:vb.net修改word vbnet修改word內(nèi)容
分享鏈接:http://www.rwnh.cn/article20/doohcjo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供商城網(wǎng)站、網(wǎng)站排名、App設(shè)計、電子商務(wù)、響應(yīng)式網(wǎng)站、企業(yè)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)