Partager via


MailingLabel.CustomLabels Property (Word)

Returns a CustomLabels collection that represents the available custom mailing labels. Read-only.

Syntax

expression .CustomLabels

expression A variable that represents a MailingLabel object.

Remarks

For information about returning a single member of a collection, see Returning an Object from a Collection.

Example

This example creates a new custom label named "AdminAddress" and then creates a page of mailing labels using a predefined return address.

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

See Also

Concepts

MailingLabel Object Members

MailingLabel Object