word相关问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3654人关注过本帖树形打印复制链接主题：word相关问题

lswwsl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1733 威望：0 精华：0 注册：2012/2/27 15:00:00

word相关问题 发帖心情

Post By：2014/4/20 16:57:00 [只看该作者]

请问能不能实现这个功能，搜索word文件中指定的字符？用什么思路解决？因为在word里自带的搜索功能，因为搜索的内容多，每次都要手动输入，麻烦。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lswwsl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1733 威望：0 精华：0 注册：2012/2/27 15:00:00

Post By：2014/4/20 23:57:00 [只看该作者]

谢了，有帮助！

lswwsl

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1733 威望：0 精华：0 注册：2012/2/27 15:00:00

Post By：2014/4/21 0:31:00 [只看该作者]

但我还想知道，全选和复制如下，

rng.Select() '全选
rng.Copy() '拷贝

除此之外，粘贴和搜索是什么呢？帮助中没有相关的知识

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

下一主题 >> << 上一主题

主题：word相关问题