主题：[求助]怎样提取rtf文档中的文字及相片信息

如题，怎样提取rtf文档中的文字及相片信息到表中呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rtf文档.rar

顶一顶

顶一顶

http://blog.csdn.net/thebesttome/article/details/6444670/

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71352&skin=0

 

操作后提示如下，应该是rtf 文档 和 Word 不同吧

 

 

此主题相关图片如下：搜狗截图20170402211821.png

参考代码

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\rtf文档.rtf"
    Dim doc = app.Documents.Open(fileName)
    For Each shape As object In doc.Shapes
        If shape.Type = 1 Then
            output.show(shape.Type & " " & shape.TextFrame.TextRange.text)
        End If
        output.show(shape.Type)
    Next
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try