以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  word相关问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49575)
--  作者：lswwsl
--  发布时间：2014/4/20 16:57:00
--  word相关问题
请问能不能实现这个功能，搜索word文件中指定的字符？用什么思路解决？因为在word里自带的搜索功能，因为搜索的内容多，每次都要手动输入，麻烦。
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/4/20 23:57:00
--  
谢了，有帮助！
--  作者：lswwsl
--  发布时间：2014/4/21 0:31:00
--  
但我还想知道， 全选和复制如下，
rng.Select()   \'全选
rng.Copy()   \'拷贝
除此之外，粘贴和搜索是什么呢？帮助中没有相关的知识
--  作者：有点甜
--  发布时间：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