Méthode MailingLabel.CreateNewDocument (Word)

  • Article

Crée un nouveau document d'étiquettes en utilisant les options d'étiquette par défaut ou celles que vous spécifiez. Renvoie un objet Document qui représente le nouveau document.

Syntaxe

expression. CreateNewDocument( _Name_ , _Address_ , _AutoText_ , _ExtractAddress__LaserTray_ , _PrintEPostageLabel_ , ) _Vertical_

expression Obligatoire. Variable qui représente un objet « MailingLabel ».

Parameters

Nom Requis/Facultatif Type de données Description
Name Facultatif Variant Nom figurant sur l'étiquette de publipostage.
Address Facultatif Variant Texte de l'étiquette de publipostage.
AutoText Facultatif Variant Nom de l'insertion automatique qui contient le texte de l'étiquette de publipostage.
ExtractAddress Facultatif Variant True pour utiliser le texte de l'adresse marqué par le signet défini par l'utilisateur nommé « EnvelopeAddress » au lieu d'utiliser l'argument adresse.
LaserTray Facultatif Variant Bac de l'imprimante laser. Il peut s'agir de l'une des constantes WdPaperTray.
PrintEPostageLabel Facultatif Variant True pour imprimer un affranchissement provenant d'un fournisseur d'affranchissement électronique sur Internet.
Vertical Facultatif Variant True : mettre en forme verticalement le texte de l'étiquette. Utilisé pour les étiquettes de publipostage asiatiques.

Valeur renvoyée

Document

Exemple

Cet exemple montre comment créer un document de mini-étiquettes Avery 2160 à partir d'une adresse prédéfinie.

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

Cet exemple montre comment créer un document d'étiquettes d'expédition Avery 5664 en utilisant le texte sélectionné comme adresse.

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

Cet exemple montre comment créer un document d'étiquettes autocollantes en utilisant le texte du signet EnvelopeAddress comme adresse.

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

Voir aussi

MailingLabel, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.