Boite à clés : pas cher – choix – avis – Affichage des boîtes de dialogue Word intégrées

Cette rubrique contient des informations et des exemples dans les sections suivantes.

Affichage d’une boîte de dialogue prédéfinie

Vous pouvez utiliser Visual Basic pour Applications (VBA) pour afficher une boîte de dialogue prédéfinie afin de récupérer les entrées effectuées par l’utilisateur ou le contrôle Word. Les Afficher la méthode de l’objet Dialogue affiche et exécute toute action entreprise dans une boîte de dialogue Word intégrée. Pour accéder à une boîte de dialogue Word prédéfinie donnée, affectez l’une des constantes WdWordDialog à la propriété Dialogues. L’instruction de macro ci-dessous, par exemple, affiche la boîte de dialogue Ouvrir (wdDialogueFichierOuvrir).

Sub ShowOpenDialog() 
 Dialogs(wdDialogFileOpen).Show 
End Sub

Si lorsqu’un fichier est sélectionné l’utilisateur clique sur D’ACCORD, le fichier est ouvert (l’action est exécutée). Cet exemple montre comment afficher la boîte de dialogue Imprimer (wdDialogFilePrint).

Sub ShowPrintDialog() 
 Dialogs(wdDialogFilePrint).Show 
End Sub

Met le Propriété DefaultTabDefaultTab property pour accéder à un onglet particulier dans une boîte de dialogue Word. L’exemple suivant affiche l’onglet Bordure de page dans la boîte de dialogue bordure et trame.

Sub ShowBorderDialog() 
 With Dialogs(wdDialogFormatBordersAndShading) 
 .DefaultTab = wdDialogFormatBordersAndShadingTabPageBorder 
 .Show 
 End With 
End Sub

Sub DisplayUserInfo() 
 MsgBox Application.UserName 
End Sub

Si le nom de l’utilisateur est modifié dans l’exemple précédent, la modification n’est pas répercutée dans la boîte de dialogue. Utilisez le Exécuter la méthode pour exécuter les paramètres dans une boîte de dialogue sans afficher la boîte de dialogue. L’exemple suivant montre comment afficher la boîte de dialogue Utilisateuret, si le nom n’est pas une chaîne vide, comment faire écho aux paramètres dans la boîte de dialogue à l’aide de la méthode Exécuter.

Sub ShowAndSetUserInfoDialogBox() 
 With Dialogs(wdDialogToolsOptionsUserInfo) 
 .Display 
 If .Name <> "" Then .Execute 
 End With 
End Sub

Sub SetUserName() 
 Application.UserName = "Jeff Smith" 
 Dialogs(wdDialogToolsOptionsUserInfo).Display 
End Sub

Rétablissement et modification des paramètres de la boîte de dialogue

Il n’est pas très efficace d’utiliser un objet Dialogue pour renvoyer ou modifier une valeur pour une boîte de dialogue lorsque vous pouvez la renvoyer ou la modifier à l’aide d’une propriété ou d’une méthode. De plus, dans la grande majorité des cas, il est plus facile et plus rapide d’utiliser du code VBA que d’utiliser l’objet Dialogue. Par conséquent, les exemples ci-dessous montrent également comment utiliser les propriétés VBA pour effectuer des tâches similaires.

Avant de renvoyer ou de modifier un paramètre de dialogue à l’aide de l’objet Dialogue , vous devez identifier la boîte de dialogue individuelle. Pour cela, utilisez la propriété Dialogues avec une constante WdWordDialog. Après avoir instancié un objet Dialogue, vous pouvez revenir ou définir des options dans la boîte de dialogue. L’exemple ci-dessous montre comment afficher le jeu de retrait à droite dans la boîte de dialogue Paragraphe.

Sub ShowRightIndent() 
 Dim dlgParagraph As Dialog 
 Set dlgParagraph = Dialogs(wdDialogFormatParagraph) 
 MsgBox "Right indent = " & dlgParagraph.RightIndent 
End Sub

Sub ShowRightIndexForSelectedParagraph() 
 MsgBox Selection.ParagraphFormat.RightIndent 
End Sub

Tout comme vous pouvez renvoyer des paramètres à partir d’une boîte de dialogue, vous pouvez également définir ces paramètres. L’exemple suivant montre comment activer la case à cocher Paragraphes de support depuis la boîte de dialogue Paragraphe.

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

Sub SetKeepWithNextForSelectedParagraph() 
 Selection.ParagraphFormat.KeepWithNext = True 
End Sub

Vérification de l’action effectuée pour fermer une boîte de dialogue

La valeur renvoyée par les méthodes Spectacle et Afficher indique sur quel bouton l’utilisateur a cliqué pour fermer la boîte de dialogue. Cet exemple montre comment afficher la boîte de dialogue Sautet, si l’utilisateur clique D’ACCORDafficher un message dans la barre d’état.

Sub DialogBoxButtons() 
 If Dialogs(wdDialogInsertBreak).Show = -1 Then 
 StatusBar = "Break inserted" 
 End If 
End Sub

Le tableau ci-dessous répertorie les valeurs de retour associées aux boutons dans les boîtes de dialogue.

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou cette documentation ? Voir Prise en charge d’Office VBA et envoi de commentaires pour obtenir des instructions sur la réception de l’assistance et l’envoi de commentaires.