Hi,

something along these lines:

Sub Test455()
Dim sPth As String
Dim sNam As String
Dim oWrd As Object
sPth = "c:\test\word1\"
Set oWrd = CreateObject("Word.Application")
' Set oWrd = GetObject(, "Word.Application")
oWrd.Visible = True
sNam = Dir(sPth & "*.doc")
While sNam < ""
oWrd.documents.Open sPth & sNam
Dim rDcm As Object
Set rDcm = oWrd.activedocument.Range
With rDcm.Find
.Text = "fox"
While .Execute
rDcm.Select
Stop
' what now ?
Wend
End With
oWrd.activedocument.Close
sNam = Dir
Wend
oWrd.Quit
Set oWrd = Nothing
End Sub

Which uses late binding,
as early binding doesn't work here and now,
due to a preconfigured chinese PC.

See:
http://word.mvps.org/FAQs/InterDev/E...ateBinding.htm

See:
http://word.mvps.org/faqs/interdev/C...WordFromXL.htm

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP