Klasse CustomLabels (Word VBA)

Eine Auflistung von CustomLabel -Objekten, die im Dialogfeld Bezeichnungsoptionen verfügbar sind. Um eine CustomLabels -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der CustomLabels -Elemente in einer Sammlung

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

Add

Fügt der CustomLabels-Auflistung ein benutzerdefiniertes Adressetikett hinzu.

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

Ein benanntes Argument

Name (String) - Der Name der benutzerdefinierten Adressetiketten.

Optional arguments

Das folgendes Argument ist optional

DotMatrix (Boolean) - True, wenn die Adressetiketten auf einem Matrixdrucker gedruckt werden sollen.

Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Elemente in der Auflistung darstellt.

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

Item

Gibt ein CustomLabel -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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