EditReplace Macro Error Messages (Word 2000/2002)

[rcbjr2]

I am trying to write a macro that will launch the EditReplace dialog in Word so that I can be sure that the previous settings in the dialog are erased each time I display the dialog. I recorded some code and add the Dialogs line below:

Sub CtrlQA()
'
' QuickReplace Macro
' Ctrl+Q, A -- Replace Dialog
'
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Dialogs(wdDialogEditReplace).Show
End Sub

However, the messages presented when the dialog is done are showing up as VBA errors instead of just the usual Word dialog on screen. It's like the .SHOW routine is keeping control of the dialog rather than ending the macro as soon as the dialog displays. Anybody know what code I'm missing to get this to work??

Thanks!!

-Rich

[HansV]

If you want to suppress the error messages, insert a line

On Error Resume Next

above the line that shows the dialog.

[Klaus Linke]

Or, since you probably want the message (just not displayed as an error):
Show the dialog by calling the command "EditReplace" through its ID:
CommandBars.FindControl(Id:=313).Execute

<img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>Klaus

[rcbjr2]

Yes, I do want to see the error, cause it's usually that it's already replaced everything, or can't find anything else, so I'll try this. Thx.

-Rich