Find dialog box from access is hidden

[donaldmaloney]

In access I open a word document to find text.
Then I use the dialogs box
With Dialogs(wdDialogEditFind)
.Find = strText
.Show
End With
The box hides behind the open form and locks up the application.

How can I open it on top of the active forms?

 

[PHV]

And what about trying this ?
With [highlight]yourWordAppObject.[/highlight]Dialogs(wdDialogEditFind)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[donaldmaloney]

NOt sure how that would work.
The code is running in VBA from an access form and is activated when i click a button.
MAybe some explanation.
I have text in a field in an access form
I highlight the text I want to find in a word document on my pc.
THe vba code then opens the word document and finds the text.
I do this now with:
With WordObj.Selection
.StartOf Unit:=wdParagraph, Extend:=wdMove
.MoveDown Unit:=wdParagraph, Count:=9, Extend:=wdExtend
End With

But am limited to 1 hit and can't get the next occurance of the text.
I want to eventually display the next paragraps after the found text but the first hit is not always the one I want.

 

[PHV]

Why not using the WordObj.Selection.Find object ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[donaldmaloney]

I thought I coul use the dialog box feature to use the "Find Next" button of the dialoge box.

With each hit I could display the paragraph following the hit and if the paragraph was not the text I wanted to save (to my access DB table) I could "find Next" for the next occurance of the search text.

I could use WordObj.Selection.Find but there is no box or button to get the next occurrance of the search text. Is there?