Método CustomLabels.Add (Word)

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

Sintaxe

expressão. Adicionar (Nome, DotMatrix)

expressão Obrigatório. Uma variável que representa uma coleção 'CustomLabels'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	O nome das etiquetas de endereçamento personalizadas.
DotMatrix	Opcional	Variant	True para que as etiquetas de endereçamento sejam impressas em uma impressora matricial.

Valor de retorno

Customlabel

Exemplo

Este exemplo adiciona uma etiqueta de endereçamento personalizada chamada "Return Address", define o tamanho da página e cria uma página dessas etiquetas.

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

Confira também

Objeto da coleção CustomLabels

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.