Objet CustomLabel (Word)
Représente une étiquette de publipostage personnalisée. L'objet CustomLabel est membre de la collection CustomLabels. La collection CustomLabels contient tous les étiquettes de publipostage personnalisées répertoriées dans la boîte de dialogue Options pour les étiquettes.
Remarques
Utilisez CustomLabels (Index), où Index est le nom de l'étiquette personnalisée ou le numéro d'index, pour renvoyer un objet CustomLabel. L'exemple suivant crée un nouveau document avec une mise en page étiquette personnalisée existante nommée « 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
Le numéro d'index représente la position de l'étiquette de publipostage personnalisée dans la collection CustomLabels. L'exemple suivant montre comment afficher le nom de la première étiquette de publipostage personnalisée.
If Application.MailingLabel.CustomLabels.Count >= 1 Then
MsgBox Application.MailingLabel.CustomLabels(1).Name
End If
Remarque
[!REMARQUE] Les objets CustomLabel sont triés par ordre alphabétique dans la collection CustomLabels et leurs numéros d'index sont réaffectés dynamiquement en tant que le contenu de la modification de la collection. Pour cette raison, il est plus prudent de faire référence à un objet CustomLabel spécifique par nom plutôt que par le numéro d'index.
Utilisez la méthode Add pour créer une étiquette personnalisée. L'exemple suivant ajoute une étiquette de publipostage personnalisée nommée « My Labels » et définit la taille de la page.
Set ML = _
Application.MailingLabel.CustomLabels.Add(Name:="My Labels", _
DotMatrix:=False)
ML.PageSize = wdCustomLabelA4
Voir aussi
Référence du modèle objet Word
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Envoyer et afficher des commentaires pour