如何将WORD文件内容赋给TEXTBOX.TEXT 急求

[sean1689]

大家好,我需要把一个WORD文件的内容赋给TEXTBOX,就是在程序运行的时候 TEXTBOX.TEXT就是该WORD文件的内容
别人说用数据流 我还是无法完成 ,求大家帮助

[sean1689]

能否给出具体的例子啊,我现在课题要完成,我急啊 谢谢了

[realjoshzuo]

举个例子
Module WordDemo Sub Main() Dim app As New Word.Application '打开一个文件 Dim Doc = app.Documents.Open("C:\lishewen.doc") '新建一个表格 Dim Table = Doc.Tables.Add(Doc.Paragraphs(1).Range, 2, 5, Word.WdDefaultTableBehavior.wdWord9TableBehavior, Word.WdAutoFitBehavior.wdAutoFitFixed) '往表格里填数据 For i = 1 To Table.Columns.Count Table.Cell(1, i).Range.Text = i Next '从表格里读数据 For i = 1 To Table.Columns.Count Console.WriteLine(Table.Cell(1, i).Range.Text) Next '保存 app.Documents.Save() '退出 app.Quit() Console.ReadLine() End SubEnd Module

[lgx1972]

首先程序要建立对
Micorosoft.Office.Interop的引用
以下是关键代码：
Dim app As New Word.Application
Dim obj1 As Object
app.Documents.Open("d:\vs.doc")
obj1 = Word.WdSaveFormat.wdFormatText
app.ActiveDocument.SaveAs("D:\vs.txt", obj1)
目的是把word文件转换成文本文件
然后你就可以在TextBox里读取这个文本文件的内容了。

[sean1689]

楼主能否留下电话,能否和你联系下!我还是不行啊,你上面的代码我还是有疑惑啊,那如何怎么没有给TEXTBOX.TEXT的赋值语句啊?

[sean1689]

如何调用 Micorosoft.Office.Interop,我还是不会?

[meimen2]

[Quote=引用 6 楼 sean1689 的回复:]
如何调用 Micorosoft.Office.Interop,我还是不会?
[/Quote]

添加引用,导入命名空间

[chndnk]

路过，一起学习

[oo渣渣oo]

自己拿去研究一下吧

      Dim WObj As New Word.Application
      Dim WDoc As Word.Document = WObj.Documents.Open("d:\temp\c.doc")
      MsgBox(WDoc.Content.Text)
      WDoc.Close(False)
      WDoc = Nothing
      WObj.Quit()
      WObj = Nothing

[sean1689]

我在在添加引用里面添加了控件microsoft.office 11.0 object library,然后在模块前面imports microsoft.office.interop,却显示警告 1Imports“Microsoft.Office.interop”中指定的命名空间或类型不包含任何公共成员，或者找不到该命名空间或类型。要确保定义了该命名空间或类型且其中至少包含一个公共成员；还要确保导入的元素名不使用任何别名。
是怎么回事?
谢谢指教

[lovingkiss]

这些都太复杂了——用文本框显示是不现实的，不过想实现类似的功能，有N多办法，可以联系我


││博客空间：http://blog.csdn.net/lovingkiss
││资源下载：http://download.csdn.net/user/lovingkiss
││Email：[e-mail] [MSN也是这个]
││联系方式：Ｑ66840199 项目、聊天、咨询、探讨、统统收费，呵呵......
╚---------------------------------------------------------------------------------------------------------ō*︻$▅▆▇◤

[paulin]

楼上的广告很强〉。。

[oo渣渣oo]

晕……那是给你演示用滴！

你肯定不是为了把文件的内容MsgBox出来吧？

[sean1689]

那如何实现呢 具体点 谢谢

[sean1689]

楼上的代码存在一个疑问,假如文本内容大于1024字符,你的MSGBOX就出现问题了

[oo渣渣oo]

我已经很明确地在代码里表明了WDoc.Content.Text就是你要取出的文件内容.......

[sean1689]

楼上的你好,你所说的代码是不是首先要引用Micorosoft.Office.Interop 我怎么也应用不了 ?老实有错误 怎么办 谢谢指导

[oo渣渣oo]

添加引用:Microsoft Word 11.0 Object Library

程序最开始要添加一行:
Imports Microsoft.Office.Interop

[sean1689]

楼上的 你好 我按照你们的方法还是无法调用 只能调用Imports Microsoft.Office.core 我该怎么处理 有没其他的办法实现啊 谢谢

[sean1689]

看来是没有人肯帮助我解决我这个问题了