Propriedade MailingLabel.CustomLabels (Word)
Retorna uma coleção CustomLabels que representa as etiquetas de endereçamento personalizadas disponíveis. Somente leitura.
Sintaxe
expression. CustomLabels
Expressão Uma variável que representa um objeto 'MailingLabel'.
Comentários
Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.
Exemplo
Este exemplo cria uma nova etiqueta personalizada chamada "AdminAddress" e, em seguida, cria uma página de etiquetas de endereçamento usando um endereço de remetente predefinido.
Dim strAddress As String
Dim labelNew As CustomLabel
strAddress = "Administration" & vbCr & "Mail Stop 22-16"
Set labelNew = Application.MailingLabel _
.CustomLabels.Add(Name:="AdminAddress", DotMatrix:= False)
With labelNew
.Height = InchesToPoints(0.5)
.Width = InchesToPoints(1)
.HorizontalPitch = InchesToPoints(2.06)
.VerticalPitch = InchesToPoints(0.5)
.NumberAcross = 4
.NumberDown = 20
.PageSize = wdCustomLabelLetter
.SideMargin = InchesToPoints(0.28)
.TopMargin = InchesToPoints(0.5)
End With
Application.MailingLabel.CreateNewDocument _
Name:="AdminAddress", Address:=strAddress
Confira também
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