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