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,