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)

Las variables de tipo Dialog se pueden establecer utilizando el procedimiento Dialogs.Item

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 WdWordDialogTab.

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 WdWordDialog.

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