Propriété Envelope.DefaultSize (Word)
Cette propriété renvoie ou définit le format d'enveloppe par défaut. String en lecture/écriture.
Syntaxe
expression. DefaultSize
Expression Variable qui représente un objet 'Envelope'.
Remarques
La chaîne renvoyée correspond à la partie droite de la chaîne qui s'affiche dans la zone Format d'enveloppe dans la boîte de dialogue Options d'enveloppe. Si vous définissez la propriété DefaultHeight ou DefaultWidth , la taille de l’enveloppe est automatiquement remplacée par Taille personnalisée dans la boîte de dialogue Options d’enveloppe (menu Outils ) et cette propriété renvoie « Taille personnalisée ».
Exemple
Cet exemple montre comment spécifier C4 (229 x 324 millimètres) comme format d'enveloppe par défaut.
ActiveDocument.Envelope.DefaultSize = "C4"
Cet exemple montre comment demander à l'utilisateur s'il souhaite remplacer le format d'enveloppe par défaut par le format « Size 10 ». Si la réponse est affirmative, le format par défaut change en conséquence. La méthode UpdateDocument change le format par défaut des enveloppes contenues dans le document actif. Si aucune enveloppe n'a été ajoutée dans le document actif, une boîte de message est affichée.
Sub exDefaultSize()
Dim intResponse As Integer
On Error GoTo errhandler
intResponse = MsgBox("Do you want to set the " _
& "default envelope to Size 10?", 4)
If intResponse = vbYes Then
With ActiveDocument.Envelope
.DefaultSize = "Size 10"
.UpdateDocument
End With
End If
Exit Sub
errhandler:
If Err = 5852 Then _
MsgBox "An envelope isn't part of this document"
End Sub
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour