通过

MailingLabel.CustomLabels Property

  • 项目
Word Developer Reference

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.

Visual Basic for Applications 
  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