vbnet操作word,vbnet操作CurrencyManager

vb.net怎么实现读取指定WORD文档中的内容

添加spire.doc.dll为引用，在vb.net中读取指定word文档的内容到 txt文件，代码示例如下：

创新互联建站专注于网站建设，为客户提供网站建设、网站制作、网页设计开发服务，多年建网站服务经验，各类网站都可以开发，高端网站设计，公司官网，公司展示网站，网站设计，建网站费用，建网站多少钱，价格优惠，收费合理。

'加载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进行操作？？？？

不清楚报错信息，只能给以下提示：

1、工程--引用,选Microsoft Word 11.0 Object Library

2、声明并赋值word程序相关变量，注意步骤不能乱。

Dim appObj As New Word.Application '新建一个word程序对象

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对象和文档对象，应该提示错误，你只需要点击“示警”图标，在展打的选项里选第1项导入就可以了。

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