Classe Dialog - dialogue (Word VBA)

La classe Dialog représente une boîte de dialogue prédéfinie. Pour utiliser une variable de classe Dialog, elle doit d'abord être instanciée, par exemple


Dim dlg as Dialog
Set dlg = Dialogs(Index:=1)

For Each

Voici un exemple de traitement des éléments Dialog dans une collection


Dim dlg As Dialog
For Each dlg In Dialogs
	
Next dlg

CommandBarId

Renvoie un type long qui représente l'ID de contrôle de barre d'outils pour une boîte de dialogue Microsoft Word prédéfinie.


Dim lngCommandBarId As Long
lngCommandBarId = Dialogs(1).CommandBarId

CommandName

Renvoie le nom de la procédure qui affiche la boîte de dialogue prédéfinie spécifiée.

Pour plus d’informations sur l’utilisation des boîtes de dialogue prédéfinies de Word, voir Affichage des boîtes de dialogue prédéfinies de Word.


MsgBox Dialogs(wdDialogFileSaveAs).CommandName

DefaultTab

Cette propriété renvoie ou définit l'onglet actif lors de la boîte de dialogue spécifiée est affichée. Ici on trouve valeurs possible pour WdWordDialogTab.


With Dialogs(wdDialogFilePageSetup) 
 .DefaultTab = wdDialogFilePageSetupTabPaperSource 
 .Show 
End With

Display

Affiche la boîte de dialogue Word intégrée spécifiée jusqu'à ce que l'utilisateur ferme qu'il soit le laps de temps écoulé.

La méthode Display renvoie les valeurs possibles suivantes.

Display (TimeOut)

Execute

Applique les paramètres actifs d’une boîte de dialogue Microsoft Word.


With Dialogs(wdDialogFormatParagraph) 
 .KeepWithNext = 1 
 .Execute 
End With

Show

Affiche et exécute les actions lancées dans la boîte de dialogue Word intégrée spécifiée.

Le tableau suivant indique la signification des valeurs renvoyées par la méthode Afficher.

Show (TimeOut)

Type

Renvoie le type de boîte de dialogue Microsoft Word prédéfinie. Ici on trouve valeurs possible pour WdWordDialog.


Dim wwdType As WdWordDialog
wwdType = Dialogs(1).Type

Update

Met à jour les valeurs affichées dans une boîte de dialogue Microsoft Word intégrée.


Set myDialog = Dialogs(wdDialogFormatFont) 
Selection.Font.Name = "Arial" 
myDialog.Update 
myDialog.Show