Método CustomLabels.Add (Word)

Agrega una etiqueta postal personalizada a la colección CustomLabels. Devuelve un objeto CustomLabel que representa la etiqueta postal personalizada.

Sintaxis

expresión. Agregar (Nombre, DotMatrix)

expresión requerida. Variable que representa una colección "CustomLabels".

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Name	Obligatorio	String	Nombre de las etiquetas postales personalizadas.
DotMatrix	Opcional	Variant	True para que las etiquetas postales se imprime en una impresora matricial.

Valor devuelto

Customlabel

Ejemplo:

En este ejemplo se agrega una etiqueta postal personalizada con el nombre Return Address, se establece el tamaño de página y, a continuación, se crea una página de estas etiquetas repetidas.

Sub ReturnAddrLabel() 
 Dim ml As CustomLabel 
 Dim addr As String 
 
 Set ml = Application.MailingLabel.CustomLabels _ 
 .Add(Name:="Return Address", DotMatrix:=False) 
 ml.PageSize = wdCustomLabelLetter 
 addr = "Dave Edson" & vbCr & "123 Skye St." & vbCr _ 
 & "Our Town, WA 98004" 
 Application.MailingLabel.CreateNewDocument _ 
 Name:="Return Address", Address:=addr, ExtractAddress:=False 
End Sub

Consulte también

Objeto de conjunto CustomLabels

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.