批量检索DOC文档 查找是否包含指定关键字
本帖最后由 bcrun 于 2013-07-09 10:05:47 编辑 没分了，不好意思，只能发到非技术区了
在一个文件夹内有很多DOC文档，想查询哪些文档中包含指定字符串，如DOC文档中包含，则显示在LISTVIEW中，类似于WINDOWS自带的搜索功能，于是写了一个方法，调用它时效率太低了，超慢，有没有更好、高效的的方法。
下面是写的调用的方法
Private Function SearchString(fPath As String, fName As String)文档
Dim X As ListItem
Dim a As New Word.Application
Dim d As New Word.Document
Set d = a.Documents.Open(fPath & fName)'这句最慢了
If InStr(d.Content, Text1.Text) Then '如果文档中有要查找的内容 TEXT1.TEXT是输入的要查找的内容，则写在LIST中
Set X = ListView1.ListItems.Add(, , fName) '文件名
X.SubItems(1) = fPath '路径加入list控件中
End If
d.Close
a.Quit
Set d = Nothing
Set a = Nothing
End Function
