不清楚报错信息,只能给以下提示:
创新互联建站长期为上千多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为东营区企业提供专业的成都做网站、成都网站设计,东营区网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
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项导入就可以了。
放个OpenFileDialog控件:
Dim strFilePath As String
OpenFileDialog1.Filter = ("Office文件(*.doc)|*.doc|所有文件(*.*)|*.*")
If OpenFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
If OpenFileDialog1.FileName = "" Then Exit Sub
strFilePath = OpenFileDialog1.FileName
strFilePath 就是你要的文件路径
添加spire.doc.dll为引用,在vb点虐 中读取指定word文档的内容到 txt文件,代码示例如下:
'加载Word文档
Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")
'使用GetText方法获取文档中的所有文本
Dim s As String = doc.GetText
File.WriteAllText("文本1.txt", s.ToString)