Word dialog editreplace

The following code opens a word document to be edited. The WordDialog is to
find and replace the text without user interaction. How do I get the Word
Dialog to do this???? WordDialog.execute doesn't work. Any ideas?????


Set WordApp = CreateObject("word.application") 'open Word session
WordApp.Visible = True 'Word visible during operation
WordApp.Activate
Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc
Set WordDialog = WordApp.Dialogs(wdDialogEditReplace)
With WordDialog
.Find = "<RIA name>"
.Replace = "TESTING!!!"
End With
On Error Resume Next
WordDialog.Execute
On Error GoTo Err_WordDocs

Thank You,

Hi

Dialogs ARE for user interaction. Without user interaction don't use
dialogs.

Record a macro in Word as you do a manual find-replace, and you'll get
pretty good code for automatic find-replace.

HTH. Best wishes Harald

"Shawn G." <[email protected]> skrev i melding
news:[email protected]...
> The following code opens a word document to be edited. The WordDialog is
> to
> find and replace the text without user interaction. How do I get the Word
> Dialog to do this???? WordDialog.execute doesn't work. Any ideas?????
>
>
> Set WordApp = CreateObject("word.application") 'open Word session
> WordApp.Visible = True 'Word visible during operation
> WordApp.Activate
> Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc
> Set WordDialog = WordApp.Dialogs(wdDialogEditReplace)
> With WordDialog
> .Find = "<RIA name>"
> .Replace = "TESTING!!!"
> End With
> On Error Resume Next
> WordDialog.Execute
> On Error GoTo Err_WordDocs
>
> Thank You,

Any idea how to convert this to a find and replace without interaction?

"Harald Staff" wrote:

> Hi
>
> Dialogs ARE for user interaction. Without user interaction don't use
> dialogs.
>
> Record a macro in Word as you do a manual find-replace, and you'll get
> pretty good code for automatic find-replace.
>
> HTH. Best wishes Harald
>
> "Shawn G." <[email protected]> skrev i melding
> news:[email protected]...
> > The following code opens a word document to be edited. The WordDialog is
> > to
> > find and replace the text without user interaction. How do I get the Word
> > Dialog to do this???? WordDialog.execute doesn't work. Any ideas?????
> >
> >
> > Set WordApp = CreateObject("word.application") 'open Word session
> > WordApp.Visible = True 'Word visible during operation
> > WordApp.Activate
> > Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc
> > Set WordDialog = WordApp.Dialogs(wdDialogEditReplace)
> > With WordDialog
> > .Find = "<RIA name>"
> > .Replace = "TESTING!!!"
> > End With
> > On Error Resume Next
> > WordDialog.Execute
> > On Error GoTo Err_WordDocs
> >
> > Thank You,
>
>
>

Figured it out, Thanks for the Help!

Set WordApp = CreateObject("word.application") 'open Word session
WordApp.Visible = True 'Word visible during operation
WordApp.Activate
Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc

With WordDoc.Content.Find
.text = "<RIA name>"
With .Replacement
.text = "testing!!!"
End With
.Execute Replace:=wdReplaceAll
End With

On Error Resume Next

On Error GoTo Err_WordDocs


"Shawn G." wrote:

> Any idea how to convert this to a find and replace without interaction?
>
> "Harald Staff" wrote:
>
> > Hi
> >
> > Dialogs ARE for user interaction. Without user interaction don't use
> > dialogs.
> >
> > Record a macro in Word as you do a manual find-replace, and you'll get
> > pretty good code for automatic find-replace.
> >
> > HTH. Best wishes Harald
> >
> > "Shawn G." <[email protected]> skrev i melding
> > news:[email protected]...
> > > The following code opens a word document to be edited. The WordDialog is
> > > to
> > > find and replace the text without user interaction. How do I get the Word
> > > Dialog to do this???? WordDialog.execute doesn't work. Any ideas?????
> > >
> > >
> > > Set WordApp = CreateObject("word.application") 'open Word session
> > > WordApp.Visible = True 'Word visible during operation
> > > WordApp.Activate
> > > Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc
> > > Set WordDialog = WordApp.Dialogs(wdDialogEditReplace)
> > > With WordDialog
> > > .Find = "<RIA name>"
> > > .Replace = "TESTING!!!"
> > > End With
> > > On Error Resume Next
> > > WordDialog.Execute
> > > On Error GoTo Err_WordDocs
> > >
> > > Thank You,
> >
> >
> >

That was fast. Good job, thanks for the feedback.

Best wishes Harald

"Shawn G." <[email protected]> skrev i melding
news:[email protected]...
> Figured it out, Thanks for the Help!