MailingLabel.CreateNewDocument-Methode (Word)

  • Artikel

Erstellt ein neues Etikettendokument entweder mit den Standardetikettenoptionen oder solchen, die Sie angeben. Gibt ein Document-Objekt zurück, das das neue Dokument darstellt.

Syntax

Ausdruck. CreateNewDocument( _Name_ , , _AutoText__Address_ , _ExtractAddress_ , _LaserTray_ , _PrintEPostageLabel_ , _Vertical_ )

Ausdruck: Erforderlich. Eine Variable, die ein MailingLabel-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Name Optional Variant Der Name auf dem Adressetikett.
Adresse Optional Variant Der Text für das Adressetikett.
AutoText Optional Variant Der Name des AutoText-Eintrags mit dem Text für das Adressetikett.
ExtractAddress Optional Variant True , um den adressierten Text zu verwenden, der von der benutzerdefinierten Textmarke mit dem Namen "EnvelopeAddress" gekennzeichnet ist, anstatt das Argument Address zu verwenden.
LaserTray Optional Variant Der Papierschacht für Laserdrucker. Dies kann eine der WdPaperTray-Konstanten sein.
PrintEPostageLabel Optional Variant True, wenn das Porto über einen E-Porto-Anbieter im Internet gedruckt werden soll.
Vertical Optional Variant Mit True wird der Text vertikal auf dem Etikett formatiert. Dies wird für Adressetiketten in asiatischen Sprachen verwendet.

Rückgabewert

Dokument

Beispiel

In diesem Beispiel wird ein neues Avery 2160-Etikettendokument mit einer vordefinierten Adresse angelegt.

addr = "Dave Edson" & vbCr & "123 Skye St." _ 
 & vbCr & "Our Town, WA 98004" 
Application.MailingLabel.CreateNewDocument _ 
 Name:="2160 mini", Address:=addr, ExtractAddress:=False

In diesem Beispiel wird ein neues Avery 5664-Versandetikettendokument mit dem ausgewählten Text als Adresse erstellt.

addr = Selection.Text 
Application.MailingLabel.CreateNewDocument _ 
 Name:="5664", Address:=addr, _ 
 LaserTray:=wdPrinterUpperBin

In diesem Beispiel wird ein neues Dokument für selbstklebende Etiketten mit dem Text der Textmarke EnvelopeAddress erstellt.

If ActiveDocument.Bookmarks.Exists("EnvelopeAddress") = True Then 
 Application.MailingLabel.CreateNewDocument _ 
 Name:="Self Adhesive Tab 1 1/2""", ExtractAddress:=True 
End If

Siehe auch

MailingLabel-Objekt

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.