Objeto CustomLabels (Word)

Uma coleção de objetos CustomLabel disponíveis na caixa de diálogo Opções de etiqueta. Esta coleção inclui etiquetas personalizadas de todos os tipos de impressora (matricial, laser e jato de tinta).

Comentários

Use a propriedade CustomLabels para retornar a coleção CustomLabels. O exemplo a seguir exibe o número de etiquetas personalizadas disponíveis.

MsgBox Application.MailingLabel.CustomLabels.Count

Use o método Add para criar uma etiqueta personalizada. O exemplo a seguir adiciona uma etiqueta de endereçamento personalizada chamada "My Labels" e define o tamanho da página.

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

Use CustomLabels (Index), onde Index é o nome de rótulo personalizado ou número de índice, para retornar um único objeto CustomLabel. O exemplo a seguir cria um novo documento com um layout existente de etiqueta personalizada chamado "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

O número de índice representa a posição da etiqueta de endereçamento personalizada na coleção CustomLabels. O exemplo a seguir exibe o nome da primeira etiqueta de endereçamento personalizada.

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

Confira também

Referência do modelo de objeto do Word

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.