CustomLabel-Objekt (Word)
Stellt ein benutzerdefiniertes Adressetikett dar. Das CustomLabel-Objekt ist ein Element der CustomLabels-Auflistung . Die CustomLabels-Auflistung enthält alle im Dialogfeld Etiketten einrichten aufgeführten, benutzerdefinierten Adressetiketten.
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
Hinweis
CustomLabel-Objekte werden in der CustomLabels-Auflistung alphabetisch sortiert, und ihre Indexnummern werden dynamisch neu zugewiesen, wenn sich der Inhalt der Auflistung ändert. Aus diesem Grund ist es sicherer, auf ein bestimmtes CustomLabel-Objekt anhand des Namens und nicht anhand der Indexnummer zu verweisen.
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
Referenz zum Word-Objektmodell
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.