將WDApp.wdParagraph直接修改成數(shù)值4,也就是變成 Unit:=4 試試看!
成都創(chuàng)新互聯(lián)于2013年開始,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目網(wǎng)站制作、做網(wǎng)站網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元道里做網(wǎng)站,已為上家服務(wù),為道里各地企業(yè)和個人服務(wù),聯(lián)系電話:028-86922220
同時將后面的:Alignment:=WDAPP.wdAlignTabRight改成:Alignment:=2,
將Leader:=WDAPP.wdTabLeaderDashes改成: Leader:=2
如果今后遇到這種問題,直接打開Word,然后
sub xx()
msgbox wdParagraph
end sub
就可以得到wdParagraph的真實(shí)值。
添加spire.doc.dll為引用,在vb.net中讀取指定word文檔的內(nèi)容到?txt文件,代碼示例如下:
'加載Word文檔
Dim doc As Document = New Documentdocument.LoadFromFile("測試文檔.docx")
'使用GetText方法獲取文檔中的所有文本
Dim s As String = doc.GetText
File.WriteAllText("文本1.txt", s.ToString)
不清楚報(bào)錯信息,只能給以下提示:
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)該提示錯誤,你只需要點(diǎn)擊“示警”圖標(biāo),在展打的選項(xiàng)里選第1項(xiàng)導(dǎo)入就可以了。