CustomLabels-Objekt (Word)

Eine Auflistung von CustomLabel-Objekten , die im Dialogfeld Bezeichnungsoptionen verfügbar sind. Diese Auflistung enthält benutzerdefinierte Etiketten aller Druckertypen (Matrix-, Laser- und Tintenstrahldrucker).

HinwBemerkungeneise

Verwenden Sie zum Zurückgeben der CustomLabels-Auflistung die CustomLabels-Eigenschaft. Im folgenden Beispiel wird die Anzahl der verfügbaren benutzerdefinierten Etiketten angezeigt.

MsgBox Application.MailingLabel.CustomLabels.Count

Verwenden Sie die Add-Methode , um eine benutzerdefinierte Bezeichnung zu erstellen. Im folgenden Beispiel wird das benutzerdefinierte Adressetikett "My Labels" hinzugefügt und das Seitenformat festgelegt.

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

Verwenden Sie CustomLabels (Index), wobei Index der benutzerdefinierte Bezeichnungsname oder die Indexnummer ist, um ein einzelnes CustomLabel-Objekt zurückzugeben. Im folgenden Beispiel wird ein neues Dokument mit einem vorhandenen benutzerdefinierten Bezeichnungslayout namens "Meine Bezeichnungen" erstellt.

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

Die Indexnummer stellt die Position des benutzerdefinierten Adressetiketts in der CustomLabels-Auflistung dar. Im folgenden Beispiel wird der Name des ersten benutzerdefinierten Adressetiketts angezeigt.

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

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.