Classe CustomLabels - CustomLabel (Word VBA)

Collection d’objets CustomLabel disponibles dans la boîte de dialogue Options pour les étiquettes . Pour utiliser une variable de classe CustomLabels, elle doit d'abord être instanciée, par exemple

Dim cls as CustomLabels
Set cls = Application.MailingLabel.CustomLabels

For Each

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

Dim cll As CustomLabel
For Each cll In Application.MailingLabel.CustomLabels
	
Next cll

Add

Ajoute une étiquette de publipostage personnalisée à la collection CustomLabels.

Add (Name, DotMatrix)

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

Arguments

Un argument nommé

Name (String) - Nom des étiquettes de publipostage personnalisées.

Optional arguments

Les arguments suivants sont facultatifs

DotMatrix (Boolean) - True pour que les étiquettes de publipostage imprimés sur une imprimante matricielle.

Count

Renvoie un type long qui représente le nombre d'éléments dans la collection.

Dim lngCount As Long
lngCount = Application.MailingLabel.CustomLabels.Count

Item

Renvoie un objet CustomLabel appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim cll As CustomLabel
Set cll = Application.MailingLabel.CustomLabels(Index:=1)