Application.Dialogs (Word)
Devuelve una colección Dialogs que representa todos los cuadros de diálogo integrados en Word.
Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección. Para obtener una lista de los cuadros de diálogo integrados, vea la enumeración WdWordDialog .
Dim dlgFind As Dialog
Set dlgFind = Dialogs(wdDialogEditFind)
With dlgFind
.Find = "Hello"
.Show
End With