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