Clase CustomLabels (Word VBA)

Colección de objetos CustomLabel disponibles en el cuadro de diálogo opciones para etiquetas . Para usar una variable de clase CustomLabels, primero debe ser instanciado, por ejemplo

Dim cls as CustomLabels
Set cls = Application.MailingLabel.CustomLabels

For Each

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

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

Add

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

Add (Name, DotMatrix)

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

Arguments

Un argumento con nombre

Name (String) - Nombre de las etiquetas postales personalizadas.

Optional arguments

Los siguientes argumentos son opcionales

DotMatrix (Boolean) - True para que las etiquetas postales se imprime en una impresora matricial.

Count

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

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

Item

Devuelve un objeto CustomLabel de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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