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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de