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
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
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
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
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
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
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