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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for