Foxtable(狐表)用户栏目专家坐堂 → word相关问题


  共有3245人关注过本帖树形打印复制链接

主题:word相关问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/20 19:30:00 [显示全部帖子]

可以,参考下面的代码,和链接

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\ts.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)
    'rng.Select()   '全选
    'rng.Copy()   '拷贝
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

 

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/21 9:20:00 [显示全部帖子]

以下是引用lswwsl在2014-4-21 0:31:00的发言:
但我还想知道, 全选和复制如下,
rng.Select()   '全选
rng.Copy()   '拷贝
除此之外,粘贴和搜索是什么呢?帮助中没有相关的知识

 

看2楼的链接,把帮助文档左边的内容都看一遍。

 

http://msdn.microsoft.com/zh-cn/library/f1f367bx(v=vs.80).aspx

 


 回到顶部