Objet CustomLabels (Word)

Collection d'objets CustomLabel disponibles dans la boîte de dialogue Options pour les étiquettes. Cette collection contient les étiquettes personnalisées de tous les types d'imprimantes (matricielles, laser et à jet d'encre).

Remarques

Pour renvoyer la collection CustomLabels, utilisez la propriété CustomLabels. L'exemple suivant affiche le nombre d'étiquettes personnalisées disponibles.

MsgBox Application.MailingLabel.CustomLabels.Count

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

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 affiche 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

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.