Display expanded replace dialog box and stop

Question

I am doing some routine replaces that need to be examined rather than have replace all run. I would like my macro to set the find and replace variables and "Find Next" with the dialog box displayed, then stop to let the user handle it.

I'm using:

application.Dialogs(wdDialogEditReplace).Show

That doesn't seem to display the expanded box. Is there a command that displays the box as if the More button had been pressed?

Answer 1

Try

With Application.Dialogs(wdDialogEditReplace)

    SendKeys "%m"

    .Find = "this"

    .Replace = "that"

    .Show

End With

Answer 2

See this discussion:

http://answers.microsoft.com/en-us/office/forum/office_2003-customize/expand-moreless-in-replace-dialog-with-vba/dff4880e-a5f3-42c7-9224-e8debc15715c

HTH,

Eric