Clase CustomLabel (Word VBA)

La clase CustomLabel representa una etiqueta postal personalizada.

Los principales procedimientos de la clase CustomLabel son Delete y CustomLabels.Add

Set

Para usar una variable de clase CustomLabel, primero debe ser instanciado, por ejemplo

Dim cll as CustomLabel
Set cll = Application.MailingLabel.CustomLabels(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase CustomLabel : CustomLabels.Add, CustomLabels.Item y MailingLabel.CustomLabels

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CustomLabel en una colección.

Dim cll As CustomLabel
For Each cll In Application.MailingLabel.CustomLabels
	
Next cll

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Number with its procedures NumberAcross y NumberDown

Métodos

Los principales métodos de la clase CustomLabel son

Delete - Elimina la etiqueta personalizada especificada.

Application.MailingLabel.CustomLabels(1).Delete

CustomLabels.Add - Agrega una etiqueta postal personalizada a la colección CustomLabels.

Dim strName As String: strName =  
Dim cll As CustomLabel
Set cll = Application.MailingLabel.CustomLabels.Add(Name:=strName)

Propiedades

DotMatrix True si el tipo de impresora para la etiqueta personalizada especificada es matricial.

Dim booDotMatrix As Boolean
booDotMatrix = Application.MailingLabel.CustomLabels(1).DotMatrix

Height Devuelve o establece el alto de una etiqueta postal personalizada especificada, en puntos.

Application.MailingLabel.CustomLabels(1).Height =

HorizontalPitch Devuelve o establece la distancia horizontal (en puntos) entre el borde izquierdo de una etiqueta postal personalizada y el borde izquierdo de la siguiente etiqueta postal.

Application.MailingLabel.CustomLabels(1).HorizontalPitch =

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = Application.MailingLabel.CustomLabels(1).Index

Name Devuelve o establece el nombre del objeto especificado.

Application.MailingLabel.CustomLabels(1).Name =

PageSize Devuelve o establece el tamaño de página de la etiqueta postal personalizada especificada.

Application.MailingLabel.CustomLabels(1).PageSize = wdCustomLabelA4

Parent Devuelve un objeto Object que representa el objeto primario del objeto CustomLabel especificado.

Dim objParent As Object
Set objParent = Application.MailingLabel.CustomLabels(1).Parent

SideMargin Devuelve o establece el ancho de los márgenes del lado (en puntos) de la etiqueta postal personalizada especificada.

Application.MailingLabel.CustomLabels(1).SideMargin =

TopMargin Devuelve o establece la distancia (en puntos) entre el borde superior de la página y el límite superior del texto del cuerpo.

Application.MailingLabel.CustomLabels(1).TopMargin =

Valid True si las diferentes propiedades de la etiqueta personalizada especificada; por ejemplo, Height, Width y NumberDown), funcionan juntas para crear una etiqueta postal válida.

Dim booValid As Boolean
booValid = Application.MailingLabel.CustomLabels(1).Valid

VerticalPitch Devuelve o establece la distancia vertical entre la parte superior de una etiqueta postal y la parte superior de la siguiente etiqueta postal.

Application.MailingLabel.CustomLabels(1).VerticalPitch =

Width Devuelve o establece el ancho de una etiqueta postal personalizada, en puntos.

Application.MailingLabel.CustomLabels(1).Width =

CustomLabels.Count Devuelve un Long que representa el número de elementos de la colección.

Dim lngCount As Long
lngCount = Application.MailingLabel.CustomLabels.Count

CustomLabels.Parent Devuelve un objeto Object que representa el objeto primario del objeto CustomLabels especificado.

Dim objParent As Object
Set objParent = Application.MailingLabel.CustomLabels.Parent