Partager via

Objet LetterContent (Word)

  • Article

Représente les éléments d'une lettre créée par l'Assistant Courrier.

Remarques

Utilisez la méthode GetLetterContent ou CreateLetterContent pour renvoyer un objet LetterContent. L'exemple suivant récupère et affiche le nom du destinataire de la lettre du document actif.

Set myLetterContent = ActiveDocument.GetLetterContent 
MsgBox myLetterContent.RecipientName

L'exemple suivant utilise la méthode CreateLetterContent pour créer un objet LetterContent, qui est ensuite utilisé avec la méthode RunLetterWizard.

Set myLetter = ActiveDocument _ 
 .CreateLetterContent(DateFormat:="July 11, 1996", _ 
 IncludeHeaderFooter:=False, _ 
 PageDesign:="C:\MSOffice\Templates\Letters & " _ 
 & "Faxes\Contemporary Letter.dot", _ 
 LetterStyle:=wdFullBlock, Letterhead:=True, _ 
 LetterheadLocation:=wdLetterTop, _ 
 LetterheadSize:=InchesToPoints(1.5), _ 
 RecipientName:="Dave Edson", _ 
 RecipientAddress:="100 Main St." & vbCr _ 
 & "Bellevue, WA 98004", _ 
 Salutation:="Dear Dave,", _ 
 SalutationType:=wdSalutationInformal, _ 
 RecipientReference:="", MailingInstructions:="", _ 
 AttentionLine:="", _ 
 Subject:="End of year report", CCList:="", ReturnAddress:="", _ 
 SenderName:="", Closing:="Sincerely yours,", _ 
 SenderCompany:="", _ 
 SenderJobTitle:="", SenderInitials:="", EnclosureNumber:=0) 
ActiveDocument.RunLetterWizard _ 
 LetterContent:=myLetter, WizardMode:=True

La méthode CreateLetterContent crée un objet LetterContent ; Toutefois, il existe de nombreux arguments requis. Si vous souhaitez définir uniquement quelques propriétés, utilisez le mot clé New pour créer un objet LetterContent autonome. L’exemple suivant crée un objet LetterContent , définit certaines de ses propriétés, puis utilise l’objet LetterContent avec la méthode RunLetterWizard pour exécuter l’Assistant Lettre, en utilisant les valeurs prédéfinies comme paramètres par défaut.

Set myLetter = New LetterContent 
With myLetter 
 .AttentionLine = "Read this" 
 .EnclosureNumber = 1 
 .Letterhead = True 
 .LetterheadLocation = wdLetterTop 
 .LetterheadSize = InchesToPoints(2) 
End With 
Documents.Add.RunLetterWizard LetterContent:=myLetter, _ 
 WizardMode:=True

Vous pouvez dupliquer un objet LetterContent en utilisant la propriété en double. L'exemple suivant récupère les éléments de la lettre du document actif et crée une copie en double. Cet exemple montre comment affecter la copie à aLetter et rédéfinir des chaînes vides comme nom et adresse du destinataire. La méthode RunLetterWizard est utilisée pour exécuter l’Assistant Courrier, en utilisant les valeurs de l’objet LetterContent révisé ( aLetter ) comme paramètres par défaut.

Set aLetter = ActiveDocument.GetLetterContent.Duplicate 
With aLetter 
 .RecipientName = "" 
 .RecipientAddress = "" 
End With 
Documents.Add.RunLetterWizard LetterContent:=aLetter, _ 
 WizardMode:=True

La méthode SetLetterContent insère le contenu de l'objet LetterContent spécifié dans un document. L'exemple suivant récupère les éléments de la lettre du document actif, modifie la ligne attention et utilise ensuite la méthode SetLetterContent pour mettre à jour le document actif pour refléter les modifications.

Set myLetterContent = ActiveDocument.GetLetterContent 
myLetterContent.AttentionLine = "Greetings" 
ActiveDocument.SetLetterContent LetterContent:=myLetterContent

Voir aussi

Référence du modèle objet Word

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.