Classe MailingLabel - étiquette de publipostage (Word VBA)

La classe MailingLabel représente une étiquette de publipostage.

Pour utiliser une variable de classe MailingLabel, elle doit d'abord être instanciée, par exemple

Dim mll as MailingLabel
Set mll = Application.MailingLabel

Les variables du type MailingLabel peuvent être définies à l'aide de la procédure Application.MailingLabel

CreateNewDocument

Crée un nouveau document d'étiquettes en utilisant les options d'étiquette par défaut ou celles que vous spécifiez.

CreateNewDocument (Name, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)

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

Arguments

Optional arguments

Les arguments suivants sont facultatifs

Name (String) - Nom figurant sur l'étiquette de publipostage.

Address (String) - Texte de l'étiquette de publipostage.

AutoText (String) - Nom de l'insertion automatique qui contient le texte de l'étiquette de publipostage.

ExtractAddress (String) - 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 (WdPaperTray) - Bac de l'imprimante laser.


Ici on trouve valeurs possible pour

WdPaperTray

PrintEPostageLabel (String) - True pour imprimer un affranchissement provenant d'un fournisseur d'affranchissement électronique sur Internet.

Vertical (Boolean) - True : mettre en forme verticalement le texte de l'étiquette.

CreateNewDocumentByID

Crée un nouveau document d'étiquettes en utilisant les options d'étiquette par défaut ou celles que vous spécifiez.

CreateNewDocumentByID (LabelID, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)

Dim docCreateNewDocumentByID As Document
Set docCreateNewDocumentByID = Application.MailingLabel.CreateNewDocumentByID()

Arguments

Optional arguments

Les arguments suivants sont facultatifs

LabelID (String) - Identification figurant sur l'étiquette de publipostage.

Address (String) - Texte de l'étiquette de publipostage.

AutoText (String) - Nom de l'insertion automatique qui contient le texte de l'étiquette de publipostage.

ExtractAddress (String) - 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 (WdPaperTray) - Bac de l'imprimante laser.


Ici on trouve valeurs possible pour

WdPaperTray

PrintEPostageLabel (String) - True pour imprimer un affranchissement provenant d'un fournisseur d'affranchissement électronique sur Internet.

Vertical (Boolean) - True : mettre en forme verticalement le texte de l'étiquette.

CustomLabels

Renvoie une collection CustomLabels qui représente les étiquettes de publipostage personnalisées disponibles.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

Dim strAddress As String 
Dim labelNew As CustomLabel 
 
strAddress = "Administration" & vbCr & "Mail Stop 22-16" 
 
Set labelNew = Application.MailingLabel _ 
 .CustomLabels.Add(Name:="AdminAddress", DotMatrix:= False) 
 
With labelNew 
 .Height = InchesToPoints(0.5) 
 .Width = InchesToPoints(1) 
 .HorizontalPitch = InchesToPoints(2.06) 
 .VerticalPitch = InchesToPoints(0.5) 
 .NumberAcross = 4 
 .NumberDown = 20 
 .PageSize = wdCustomLabelLetter 
 .SideMargin = InchesToPoints(0.28) 
 .TopMargin = InchesToPoints(0.5) 
End With 
 
Application.MailingLabel.CreateNewDocument _ 
 Name:="AdminAddress", Address:=strAddress

DefaultLabelName

Renvoie ou définit le nom de l’étiquette de publipostage par défaut.

Pour retrouver la chaîne de l’étiquette intégrée spécifiée, sélectionnez l’étiquette dans la boîte de dialogue Options pour les étiquettes (menu Outils, boîte de dialogue Enveloppes et étiquettes, onglet Étiquettes, bouton Options). La création d’un document d’étiquettes à partir d’un objet CustomLabel définit automatiquement la propriété DefaultLabelName, sur le nom de l’objet CustomLabel .

Msgbox Application.MailingLabel.DefaultLabelName

DefaultLaserTray

Cette propriété renvoie ou définit le bac à papier par défaut qui contient les feuilles d'étiquettes de publipostage. Ici on trouve valeurs possible pour WdPaperTray.

If Application.MailingLabel.DefaultLaserTray = _ 
 wdPrinterManualEnvelopeFeed Then 
 StatusBar = "Printer set for feeding labels manually" 
Else 
 StatusBar = "Check printer paper tray setting" 
End If

LabelOptions

Affiche la boîte de dialogue Options pour les étiquettes.

La méthode LabelOptions fonctionne uniquement si le document est le document principal d'une fusion d'étiquettes de publipostage.

Sub LabelOps() 
 If ActiveDocument.MailMerge _ 
 .MainDocumentType = wdMailingLabels Then 
 Application.MailingLabel.LabelOptions 
 End If 
End Sub

PrintOut

Imprime une étiquette ou une page d'étiquettes portant la même adresse.

PrintOut (Name, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)

addr = "Jane Doe" & vbCr & "123 Skye St." _ 
 & vbCr & "OurTown, WA 98107" 
Application.MailingLabel.PrintOut Name:="5664", Address:=addr

Arguments

Optional arguments

Les arguments suivants sont facultatifs

Name (String) - Nom figurant sur l'étiquette de publipostage.

Address (String) - Représente le texte de l'adresse figurant sur l'étiquette.

ExtractAddress (String) - True pour utiliser le texte marqué par le signet « AdrDestEnveloppe » (signet défini par l'utilisateur) en tant que le texte de l'étiquette.

LaserTray (WdPaperTray) - Le bac d'imprimante laser à utiliser.


Ici on trouve valeurs possible pour

WdPaperTray

SingleLabel (String) - True pour imprimer une seule étiquette ; False pour imprimer une page entière de la même étiquette.

Row (Row) - La ligne d'étiquette pour une seule étiquette.

Column (Column) - La colonne étiquette pour une seule étiquette.

PrintEPostageLabel (String) - True pour imprimer un affranchissement provenant d'un fournisseur d'affranchissement électronique sur Internet.

Vertical (Boolean) - True: pour imprimer verticalement le texte de l'étiquette.

PrintOutByID

Imprime une étiquette ou une page d'étiquettes portant la même adresse.

PrintOutByID (LabelID, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical)

Application.MailingLabel.PrintOutByID

Arguments

Optional arguments

Les arguments suivants sont facultatifs

LabelID (String) - Identification figurant sur l'étiquette de publipostage.

Address (String) - Représente le texte de l'adresse figurant sur l'étiquette.

ExtractAddress (String) - True pour utiliser le texte marqué par le signet « AdrDestEnveloppe » (signet défini par l'utilisateur) en tant que le texte de l'étiquette.

LaserTray (WdPaperTray) - Le bac d'imprimante laser à utiliser.


Ici on trouve valeurs possible pour

WdPaperTray

SingleLabel (String) - True pour imprimer une seule étiquette ; False pour imprimer une page entière de la même étiquette.

Row (Row) - La ligne d'étiquette pour une seule étiquette.

Column (Column) - La colonne étiquette pour une seule étiquette.

PrintEPostageLabel (String) - True pour imprimer un affranchissement provenant d'un fournisseur d'affranchissement électronique sur Internet.

Vertical (Boolean) - True: pour imprimer verticalement le texte de l'étiquette.

Vertical

True orienter le texte verticalement sur des étiquettes de publipostage asiatiques.

Sub VerticalLabel() 
 If ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels And 
 Application.Language = msoLanguageIDJapanese Then 
 Application.MailingLabel.Vertical = True 
 End If 
End Sub