Show Method Example

This example displays the Find and Replace dialog box with the word "Blue" preset in the Find what text box.

With  Dialogs(wdDialogEditFind)
    .Find = "Blue"
    .Show
End With

This example displays and carries out any action initiated in the Open dialog box. The file name is set to *.* so that all file names are displayed.

With Dialogs(wdDialogFileOpen)
    .Name = "*.*"
    .Show
End With

This example displays and carries out any action initiated in the Zoom dialog box. If there are no actions initiated for approximately 9 seconds, the dialog box is closed.

Dialogs(wdDialogViewZoom).Show TimeOut:=9000