以文本方式查看主题

-  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=52976)
--  作者：flashv
--  发布时间：2014/6/26 16:12:00
--  如何将备注内容转到RTF文档？

1.建一个RTF文档，比如叫“001.rft”

 

2.如何将记录中备注字段的内容复制到“001.rtf”中？
--  作者：有点甜
--  发布时间：2014/6/26 16:14:00
--  

操作word

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    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

 

 

参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx