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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für