Classe Dialog - diálogo (Word VBA)
A classe Dialog representa uma caixa de diálogo interna. O objeto Dialog é um membro da coleção Dialogs . A coleção Dialogs contém todas as caixas de diálogo internas do Word. Você não pode criar uma nova caixa de diálogo interna ou adicionar uma à coleção Dialogs. Para usar uma variável de classe Dialog, ela primeiro precisa ser instanciada por exemplo
Dim dlg as Dialog
Set dlg = Dialogs(Index:=1)
For Each
Aqui está um exemplo de processamento dos itens Dialog em uma coleção.
Dim dlg As Dialog
For Each dlg In Dialogs
Next dlg
CommandBarId
Retorna um Long que representa a identificação de controle da barra de ferramentas para uma caixa de diálogo interna do Microsoft Word. Somente leitura.
Dim lngCommandBarId As Long
lngCommandBarId = Dialogs(1).CommandBarId
CommandName
Retorna o nome do procedimento que exibe a caixa de diálogo interna especificada. Cadeia de caracteressomente leitura.
Para obter mais informações sobre como trabalhar com as caixas de diálogo internas do Word, consulte Exibindo caixas de diálogo internas do Word.
MsgBox Dialogs(wdDialogFileSaveAs).CommandName
DefaultTab
Retorna ou define a guia ativa quando a caixa de diálogo especificada é exibida. Leitura/gravação WdWordDialogTab. Aqui você pode encontrar os valores possíveis para
With Dialogs(wdDialogFilePageSetup)
.DefaultTab = wdDialogFilePageSetupTabPaperSource
.Show
End With
Display
Exibe a caixa de diálogo interna Word especificada até que o usuário fecha ou passou o período de tempo especificado. Retorna um Long que indica qual botão foi clicado para fechar a caixa de diálogo.
O método Display retorna os seguintes valores possíveis.
Display (TimeOut)
TimeOut: O período de tempo que o Word esperará antes de fechar a caixa de diálogo automaticamente. Uma unidade é aproximadamente 0,001 segundo. Atividades simultâneas no sistema podem aumentar o valor efetivo de tempo. Se esse argumento for omitido, a caixa de diálogo será fechada quando o usuário a fechar.
Dim dlgAbout As Dialog
Set dlgAbout = Dialogs(wdDialogHelpAbout)
dlgAbout.Display TimeOut:=10000
Execute
Aplica as configurações atuais de uma caixa de diálogo do Microsoft Word.
With Dialogs(wdDialogFormatParagraph)
.KeepWithNext = 1
.Execute
End With
Show
Exibe e executa ações iniciadas na caixa de diálogo especificada interna no Word. Retorna um Long que indica qual botão foi clicado para fechar a caixa de diálogo.
A tabela a seguir mostra o significado dos valores que o método Show retorna.
Show (TimeOut)
TimeOut: O período de tempo que o Word esperará antes de fechar a caixa de diálogo automaticamente. Uma unidade é aproximadamente 0,001 segundo. Atividades simultâneas no sistema podem aumentar o valor efetivo de tempo. Se esse argumento for omitido, a caixa de diálogo será fechada quando o usuário descartá-la.
With Dialogs(wdDialogEditFind)
.Find = "Blue"
.Show
End With
Type
Retorna o tipo de caixa de diálogo interna do Microsoft Word. WdWordDialog somente leitura. Aqui você pode encontrar os valores possíveis para
Dim wwdType As WdWordDialog
wwdType = Dialogs(1).Type
Update
Atualiza os valores indicados na caixa de diálogo incorporada no Microsoft Word.
Set myDialog = Dialogs(wdDialogFormatFont)
Selection.Font.Name = "Arial"
myDialog.Update
myDialog.Show