Application.Dialogs (Word)

Retorna uma coleção Dialogs que representa todas as caixas de diálogo internas do Word. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção. Para obter uma lista de caixas de diálogo internas, consulte a enumeração WdWordDialog .

Dim dlgFind As Dialog 
 
Set dlgFind = Dialogs(wdDialogEditFind) 
 
With dlgFind 
 .Find = "Hello" 
 .Show 
End With