Classe CustomLabels - CustomLabel (Word VBA)

Uma coleção de objetos CustomLabel disponíveis na caixa de diálogo Opções de etiqueta . Essa coleção inclui etiquetas personalizadas de todos os tipos de impressora (matricial, laser e jato de tinta). Para usar uma variável de classe CustomLabels, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens CustomLabels em uma coleção.

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

Add

Adiciona uma etiqueta de endereçamento personalizada à coleção CustomLabels. Retorna um objeto CustomLabel que representa a etiqueta de endereçamento personalizada.

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

O seguinte argumento é necessário

Name (String) - O nome das etiquetas de endereçamento personalizadas.

Optional arguments

The following argument is optional

DotMatrix (Boolean) - True para que as etiquetas de endereçamento sejam impressas em uma impressora matricial.

Count

Retorna um Long que representa o número de itens na coleção. Somente leitura.

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

Item

Retorna um objeto CustomLabel em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

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