如何实现在word中查找字符串,不打开文件,来着有分

如何实现在word中查找字符串,不打开文件,来着有分
QQ147376918
[e-mail]

9 个解决方案

#1

不打开怎么查啊？
就算使用Word.Application,Word.Document
设.Visible=false也只是不显示窗口，但也是在后台打开文件啊，在系统进程中可以看到。

#2

那位能具体给讲一下,在线等待!!!

#3

Private Sub Command1_Click()
Dim wrdApp As Object
Dim f, fso As Object
Dim filepath As String
Dim Keywords As String

filepath = "c:\words"
Keywords = "abc"

Set fso = CreateObject("Scripting.FileSystemObject")

Set folders = fso.GetFolder(filepath)

i = 0
For Each f In folders.Files
    If LCase(Right(f.Name, Len(f.Name) - InStrRev(f.Name, "."))) = "doc" Then
       Set wrdApp = CreateObject("Word.Application")
       wrdApp.Visible = False
       wrdApp.Documents.Open FileName:=filepath & "\" & f.Name
 
       If InStr(wrdApp.ActiveDocument.Content.Text, Keywords) <> 0 Then
          MsgBox f.Name
       End If
       
       wrdApp.Quit
       
    End If
Next


Set wrdApp = Nothing

End Sub

#4

不知道。但知道不打开它就不知道它里面有什么。

#5

谢谢！！1

#6

我现在有几个问题请教，首先表示感谢！！！
  我用VB做一个项目管理的程序，每条记录是一个项目，每条记录有多个MEMO字段和多个WORD的连接（嵌入），然后生成报表，一条记录包含多页，就象管理入党申请书一样，一份入党申请书有好几页，你看怎么处理？
WORD通过OLE嵌在FORM里面，方便吗？
怎么把OLE里的WORD文件保存到ACCESS 里面？
怎么把ACCESS里的数据（报存的）打印出来，用PRINT 还是写到WORD里面打印？


谢谢了
[e-mail]

#7

我现在有几个问题请教，首先表示感谢！！！
  我用VB做一个项目管理的程序，每条记录是一个项目，每条记录有多个MEMO字段和多个WORD的连接（嵌入），然后生成报表，一条记录包含多页，就象管理入党申请书一样，一份入党申请书有好几页，你看怎么处理？
WORD通过OLE嵌在FORM里面，方便吗？
怎么把OLE里的WORD文件保存到ACCESS 里面？
怎么把ACCESS里的数据（报存的）打印出来，用PRINT 还是写到WORD里面打印？


谢谢了
[e-mail]

#8

up

#9

up