以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表 如何导入 RTF  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54374)
--  作者：打错潇洒
--  发布时间：2014/7/26 17:41:00
--  报表 如何导入 RTF
报表 如何导入 RTF
--  作者：有点甜
--  发布时间：2014/7/27 9:24:00
--  

 打开，读取，然后导入。

 

 比如类似操作word文件那样处理。
--  作者：有点甜
--  发布时间：2014/7/27 9:26:00
--  

类似代码

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.rtf"
    app.Documents.Open(fileName)
    Dim count = app.Documents(fileName).Characters.Count
    Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)
   
    msgbox(rng.Text)
   
    App.Visible = True
catch ex As exception
    msgbox(ex.message)  
    app.Quit
finally
    \'app.Quit
End try