Propriété MailingLabel.CustomLabels (Word)

  • Article

Renvoie une collection CustomLabels qui représente les étiquettes de publipostage personnalisées disponibles. En lecture seule.

Syntaxe

expression. CustomLabels

Expression Variable qui représente un objet « MailingLabel ».

Remarques

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.

Exemple

Cet exemple montre comment créer une étiquette personnalisée nommée « AdminAddress », puis une page d'étiquettes de publipostage en utilisant une adresse d'expéditeur prédéfinie.

Dim strAddress As String 
Dim labelNew As CustomLabel 
 
strAddress = "Administration" & vbCr & "Mail Stop 22-16" 
 
Set labelNew = Application.MailingLabel _ 
 .CustomLabels.Add(Name:="AdminAddress", DotMatrix:= False) 
 
With labelNew 
 .Height = InchesToPoints(0.5) 
 .Width = InchesToPoints(1) 
 .HorizontalPitch = InchesToPoints(2.06) 
 .VerticalPitch = InchesToPoints(0.5) 
 .NumberAcross = 4 
 .NumberDown = 20 
 .PageSize = wdCustomLabelLetter 
 .SideMargin = InchesToPoints(0.28) 
 .TopMargin = InchesToPoints(0.5) 
End With 
 
Application.MailingLabel.CreateNewDocument _ 
 Name:="AdminAddress", Address:=strAddress

Voir aussi

MailingLabel, objet

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.