CustomLabels.Add-Methode (Word)

  • Artikel

Fügt der CustomLabels-Auflistung ein benutzerdefiniertes Adressetikett hinzu. Gibt ein CustomLabel-Objekt zurück, welches das benutzerdefinierte Adressetikett darstellt.

Syntax

Ausdruck. Hinzufügen (Name, DotMatrix)

Ausdruck: Erforderlich. Eine Variable, die eine "CustomLabels"-Auflistung darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Name Erforderlich String Der Name der benutzerdefinierten Adressetiketten.
DotMatrix Optional Variant True, wenn die Adressetiketten auf einem Matrixdrucker gedruckt werden sollen.

Rückgabewert

Customlabel

Beispiel

In diesem Beispiel wird das benutzerdefinierte Adressetikett Return Address hinzugefügt und die Seitengröße festgelegt. Anschließend wird eine Seite mit diesen Etiketten erstellt.

Sub ReturnAddrLabel() 
 Dim ml As CustomLabel 
 Dim addr As String 
 
 Set ml = Application.MailingLabel.CustomLabels _ 
 .Add(Name:="Return Address", DotMatrix:=False) 
 ml.PageSize = wdCustomLabelLetter 
 addr = "Dave Edson" & vbCr & "123 Skye St." & vbCr _ 
 & "Our Town, WA 98004" 
 Application.MailingLabel.CreateNewDocument _ 
 Name:="Return Address", Address:=addr, ExtractAddress:=False 
End Sub

Siehe auch

CustomLabels-Auflistungsobjekt

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.