Search/Read a MS-Word Document 1

[DougAlthaus]

Does anyone know of an easy way to read/search a word document? I have to read about 9000 documents once a month. If I use the ole component to open the document after so many I receive I have committed a series error in word.

It there a was to use the microsoft find?

PLEASE HELP!

 

[softwarescience]

Hello

If you specifically want to do this programmatically to find specific items in the docs then the following will help;

'this bit of code ensure that only one instance of word is loaded by this procedure
Set WordApp = GetObject(, "Word.Application.8")
If Err.Number <> 0 Then
    Err.Clear
    Set WordApp = CreateObject(&quot;Word.Application.8&quot;)
end if
WordApp.activewindow.Close (0)

'this bit opens your document - targetdoc may be an iterative get directory file i.e. open each document in a directory
WordApp.Documents.Add (TargetDoc)

If WordApp.activedocument.content.Find.Execute (findText:=&quot;SearchText&quot;) = True then
'Do your thing as the document has what you're after
end if

This should make Word a little happier.

There is a 'Find All Microsoft Documents' dialog but I've never used it (maybe that will do what you wish)


Hope this helps

 

[DougAlthaus]

when i run it i get the error:
ActiveX component can't create object or return reference to this object (Error 429) when it trys to

Set WordApp = GetObject(, "Word.Application.8&quot

any ideas???

 

[softwarescience]

A couple of things.

You must have error trapping set to 'Break on unhandled errors' (this because it's trying to use an open instance before creating a new instance and the only way to trap it is to trap the error)

Also if you are using Word 2000 you need 'Word.Application.9'

 

[DougAlthaus]

It worked. Thanks!!!!!!