Propiedad MailingLabel.CustomLabels (Word)

Devuelve una colección CustomLabels que representa las etiquetas postales personalizadas disponibles. Solo lectura.

Sintaxis

expresión. CustomLabels

expresión Variable que representa un objeto 'MailingLabel'.

Observaciones

Para obtener información sobre cómo devolver un solo miembro de una colección, vea Returning an object from a collection.

Ejemplo

En este ejemplo se crea una nueva etiqueta personalizada denominada "AdminAddress" y, a continuación, se crea una página de etiquetas postales utilizando un remite predefinido.

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

Vea también

Objeto MailingLabel

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.