如何将WORD文件内容赋给TEXTBOX.TEXT 急求
大家好,我需要把一个WORD文件的内容赋给TEXTBOX,就是在程序运行的时候 TEXTBOX.TEXT就是该WORD文件的内容别人说用数据流 我还是无法完成 ,求大家帮助 --------------------编程问答-------------------- 首先程序要建立对
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里读取这个文本文件的内容了。 --------------------编程问答-------------------- 能否给出具体的例子啊,我现在课题要完成,我急啊 谢谢了 --------------------编程问答-------------------- 举个例子
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 --------------------编程问答-------------------- 楼主能否留下电话,能否和你联系下!我还是不行啊,你上面的代码我还是有疑惑啊,那如何怎么没有给TEXTBOX.TEXT的赋值语句啊? --------------------编程问答-------------------- 路过，一起学习 --------------------编程问答-------------------- 如何调用 Micorosoft.Office.Interop,我还是不会? --------------------编程问答--------------------
添加引用,导入命名空间 --------------------编程问答-------------------- 我在在添加引用里面添加了控件microsoft.office 11.0 object library,然后在模块前面imports microsoft.office.interop,却显示警告 1Imports“Microsoft.Office.interop”中指定的命名空间或类型不包含任何公共成员，或者找不到该命名空间或类型。要确保定义了该命名空间或类型且其中至少包含一个公共成员；还要确保导入的元素名不使用任何别名。
是怎么回事?
谢谢指教 --------------------编程问答-------------------- 这些都太复杂了——用文本框显示是不现实的，不过想实现类似的功能，有N多办法，可以联系我
││博客空间：http://blog.csdn.net/lovingkiss
││资源下载：http://download.csdn.net/user/lovingkiss
││Email：loving-kiss＠163.com [MSN也是这个]
││联系方式：Ｑ66840199 项目、聊天、咨询、探讨、统统收费，呵呵......
╚---------------------------------------------------------------------------------------------------------ō*︻$▅▆▇◤ --------------------编程问答-------------------- 楼上的广告很强〉。。 --------------------编程问答-------------------- 自己拿去研究一下吧
--------------------编程问答-------------------- 楼上的代码存在一个疑问,假如文本内容大于1024字符,你的MSGBOX就出现问题了 --------------------编程问答-------------------- 晕……那是给你演示用滴！
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
你肯定不是为了把文件的内容MsgBox出来吧？ --------------------编程问答-------------------- 那如何实现呢 具体点 谢谢 --------------------编程问答-------------------- 我已经很明确地在代码里表明了WDoc.Content.Text就是你要取出的文件内容....... --------------------编程问答-------------------- 楼上的你好,你所说的代码是不是首先要引用Micorosoft.Office.Interop 我怎么也应用不了 ?老实有错误 怎么办 谢谢指导 --------------------编程问答-------------------- 添加引用:Microsoft Word 11.0 Object Library
程序最开始要添加一行:
Imports Microsoft.Office.Interop
--------------------编程问答-------------------- 楼上的 你好 我按照你们的方法还是无法调用 只能调用Imports Microsoft.Office.core 我该怎么处理 有没其他的办法实现啊 谢谢 --------------------编程问答-------------------- 看来是没有人肯帮助我解决我这个问题了
补充：.NET技术 , VB.NET
