Objeto CustomLabel (Word)

Representa una etiqueta postal personalizada. El objeto CustomLabel es un miembro de la colección CustomLabels. La colección CustomLabels contiene todas las etiquetas postales personalizadas que aparecen en el cuadro de diálogo Opciones para etiquetas.

Observaciones

Utilice CustomLabels (Index), donde Index es el nombre de la etiqueta personalizada o número de índice, para devolver un solo objeto CustomLabel. El ejemplo siguiente crea un nuevo documento con un diseño de etiqueta personalizada existente denominado "My Labels".

Set ML = Application.MailingLabel 
If ML.CustomLabels("My Labels").Valid = True Then 
 ML.CreateNewDocument Name:="My Labels" 
Else 
 MsgBox "The My Labels custom label is not available" 
End If

El número de índice representa la posición de la etiqueta postal personalizada de la colección CustomLabels. En el ejemplo siguiente se muestra el nombre de la primera etiqueta postal personalizada.

If Application.MailingLabel.CustomLabels.Count >= 1 Then 
 MsgBox Application.MailingLabel.CustomLabels(1).Name 
End If

Nota

[!NOTA] Los objetos CustomLabel están ordenados alfabéticamente en el conjunto CustomLabels y sus números de índice se reasignan dinámicamente como el contenido del cambio en la colección. Por ese motivo, es más seguro hacer referencia a un objeto CustomLabel específico por su nombre en lugar de por número de índice.

Utilice el método Add para crear una etiqueta personalizada. En el siguiente ejemplo se agrega una etiqueta postal personalizada denominada "My Label" y se establece el tamaño de página.

Set ML = _ 
 Application.MailingLabel.CustomLabels.Add(Name:="My Labels", _ 
 DotMatrix:=False) 
ML.PageSize = wdCustomLabelA4

Vea también

Referencia de modelos de objetos de Word

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.