vbnet操作word,vbnet操作CurrencyManager

vb.net怎么實(shí)現(xiàn)讀取指定WORD文檔中的內(nèi)容

添加spire.doc.dll為引用，在vb.net中讀取指定word文檔的內(nèi)容到?txt文件，代碼示例如下：

創(chuàng)新互聯(lián)建站專注于網(wǎng)站建設(shè)，為客戶提供網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)頁設(shè)計(jì)開發(fā)服務(wù)，多年建網(wǎng)站服務(wù)經(jīng)驗(yàn)，各類網(wǎng)站都可以開發(fā)，高端網(wǎng)站設(shè)計(jì)，公司官網(wǎng)，公司展示網(wǎng)站，網(wǎng)站設(shè)計(jì)，建網(wǎng)站費(fèi)用，建網(wǎng)站多少錢，價(jià)格優(yōu)惠，收費(fèi)合理。

'加載Word文檔

Dim doc As Document = New Documentdocument.LoadFromFile("測試文檔.docx")

'使用GetText方法獲取文檔中的所有文本

Dim s As String = doc.GetText

File.WriteAllText("文本1.txt", s.ToString)

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

不清楚報(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)入就可以了。

vb.net操作word最后一步求解

我試著按我自己的思路給你改一下，你看看成不成型！

......

End?if

Dim?WDAPP?As?Object,Wd1?as?object,Wd2?as?object

wdapp?=?new?word.application

wdapp.visible?=?true

wd1?=?WDAPP.Documents.open(FileName:=TextBox1.Text)

wd2?=?WDAPP.Documents.open(FileName:=TextBox2.Text)

For?j?=?0?To?q?-?1

Wd1.activate

WDAPP.Selection.Find.ClearFormatting()

With?WDAPP.Selection.Find.text?=?p(j)

WDAPP.Selection.Find.Execute(p(j))

Dim?i?As?String

i?=?WDAPP.Selection.Information(3)

Dim?missing?=?System.Reflection.Missing.Value

Dim?unit?=?Word.WdUnits.wdStory

wd2.Activate

WDAPP.Selection.EndKey(unit,?missing)

WDAPP.Selection.TypeText(text:=p(j))

WDAPP.Selection.MoveDown(Unit:=4,?Count:=1)

WDAPP.Selection.EndKey()

WDAPP.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP1.CentimetersToPoints(20),?Alignment:=2,?Leader:=2)

WDAPP.Selection.TypeText(Text:=vbTab)

WDAPP.Selection.TypeText(Text:=i)

WDAPP.Selection.TypeText(Text:=vbCrLf)

If?WDAPP.ActiveDocument.Saved?=?False?Then

WDAPP.ActiveDocument.Save()

End?If

End?With

WDAPP.Quit()

WDAPP?=?Nothing

End?If