Clase Dialog - diálogo (Word VBA)
La clase Dialog representa un cuadro de diálogo integrado. Para usar una variable de clase Dialog, primero debe ser instanciado, por ejemplo
Dim dlg as Dialog
Set dlg = Dialogs(Index:=1)
For Each
A continuación, se muestra un ejemplo de cómo procesar los elementos Dialog en una colección.
Dim dlg As Dialog
For Each dlg In Dialogs
Next dlg
CommandBarId
Devuelve un Long que representa el identificador del control de barra de herramientas para un cuadro de diálogo integrado de Microsoft Word.
Dim lngCommandBarId As Long
lngCommandBarId = Dialogs(1).CommandBarId
CommandName
Devuelve el nombre del procedimiento que muestra el cuadro de diálogo integrado especificado.
Para obtener más información sobre cómo trabajar con cuadros de diálogo integrados de Word, vea Mostrar cuadros de diálogo de Word integrados.
MsgBox Dialogs(wdDialogFileSaveAs).CommandName
DefaultTab
Devuelve o establece la ficha activa cuando se muestra el cuadro de diálogo especificado. Aquí puede ver valores posibles para
With Dialogs(wdDialogFilePageSetup)
.DefaultTab = wdDialogFilePageSetupTabPaperSource
.Show
End With
Display
Muestra el cuadro de diálogo de Word integrado especificado hasta que el usuario lo cierre o haya transcurrido el período de tiempo especificado.
El método Display devuelve los siguientes valores posibles.
Display (TimeOut)
Execute
Aplica la configuración actual de un cuadro de diálogo de Microsoft Word.
With Dialogs(wdDialogFormatParagraph)
.KeepWithNext = 1
.Execute
End With
Show
Muestra y lleva a cabo acciones iniciadas en el cuadro de diálogo de Word integrado especificado.
En la siguiente tabla se muestra el significado de los valores que devuelve el método Show.
Show (TimeOut)
Type
Devuelve el cuadro de diálogo integrado de Microsoft Word. Aquí puede ver valores posibles para
Dim wwdType As WdWordDialog
wwdType = Dialogs(1).Type
Update
Actualiza los valores mostrados en un cuadro de diálogo integrado de Microsoft Word que se esté mostrando.
Set myDialog = Dialogs(wdDialogFormatFont)
Selection.Font.Name = "Arial"
myDialog.Update
myDialog.Show