7,762
社区成员
发帖
与我相关
我的任务
分享高分求：如何提取word文档中内容并在文本框内显示，xsl如何在浏览器中现实图片？
如何提取word文档中内容并在文本框内显示，xsl如何在浏览器中现实图片？
...全文
请发表友善的回复…
发表回复
therockdelt 2006-05-01
- 打赏
- 举报
那要是有图片呢?怎么才能把图片提取出来呢?有那为高人知道吗?
northwolves 2006-05-01
- 打赏
- 举报
'引用WORD,在form1上添加textbox(设置属性multline=true,scrollbar=2)
Private Sub Command1_Click()
Dim wordapp As New Word.Application
Dim myword As New Word.Document
Dim s As String
Set myword = wordapp.Documents.Open(FileName:="d:\aaaa.doc")
s = myword.Content.Text
myword.Close
wordapp.Quit
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim wordapp As New Word.Application
Dim myword As New Word.Document
Dim s As String
Set myword = wordapp.Documents.Open(FileName:="d:\aaaa.doc")
s = myword.Content.Text
myword.Close
wordapp.Quit
Text1.Text = s
End Sub
