CustomLabels.Add, méthode (Word)

  • Article

Ajoute une étiquette de publipostage personnalisée à la collection CustomLabels. Renvoie un objet CustomLabel qui représente l'étiquette de publipostage personnalisée.

Syntaxe

expression. Add (Name, DotMatrix)

expression Obligatoire. Variable qui représente une collection « CustomLabels ».

Parameters

Nom Requis/Facultatif Type de données Description
Name Obligatoire Chaîne Nom des étiquettes de publipostage personnalisées.
DotMatrix Facultatif Variant True pour que les étiquettes de publipostage imprimés sur une imprimante matricielle.

Valeur renvoyée

CustomLabel

Exemple

Cet exemple montre comment ajouter une étiquette de publipostage dénommée « Return Address », définir la taille de la page, puis créer une page d'étiquettes de ce type.

Sub ReturnAddrLabel() 
 Dim ml As CustomLabel 
 Dim addr As String 
 
 Set ml = Application.MailingLabel.CustomLabels _ 
 .Add(Name:="Return Address", DotMatrix:=False) 
 ml.PageSize = wdCustomLabelLetter 
 addr = "Dave Edson" & vbCr & "123 Skye St." & vbCr _ 
 & "Our Town, WA 98004" 
 Application.MailingLabel.CreateNewDocument _ 
 Name:="Return Address", Address:=addr, ExtractAddress:=False 
End Sub

Voir aussi

CustomLabels, Collection d'objets

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.