Méthode Document.RunLetterWizard (Word)

Article
04/07/2023

Démarre l'Assistant Courrier pour le document spécifié.

Syntaxe

expression. RunLetterWizard( _LetterContent_ , _WizardMode_ )

expression Obligatoire. Variable qui représente un objet Document.

Parameters

Nom	Requis/Facultatif	Type de données	Description
LetterContent	Facultatif	Variant	Un objet LetterContent. Toutes les propriétés de l'objet LetterContent afficheront comme éléments prédéfinis dans les boîtes de dialogue Assistant lettre. Si cet argument est omis, la méthode GetLetterContent est automatiquement utilisée pour obtenir un objet LetterContent dans le document spécifié.
WizardMode	Facultatif	Variant	True pour afficher la boîte de dialogue Assistant courrier sous la forme d'une série d'étapes proposant les boutons suivant, précédent et Terminer. False pour afficher la boîte de dialogue Assistant courrier comme si elle était ouverte depuis le menu Outils (une boîte de dialogue Propriétés contenant les boutons OK et un bouton Annuler ). La valeur par défaut est True.

Remarques

Utilisez la méthode CreateLetterContent pour renvoyer un objet LetterContent, diverses propriétés d'élément de lettre. Utilisez la méthode GetLetterContent pour renvoyer un objet LetterContent en fonction du contenu du document spécifié. Utilisez l’objet LetterContent obtenu avec la méthode RunLetterWizard pour prédéfinir des éléments dans la boîte de dialogue Assistant Courrier .

Exemple

Cet exemple crée un objet LetterContent, définit plusieurs de ses propriétés, puis démarrer l'Assistant courrier à l'aide de la méthode RunLetterWizard.

Set myContent = New LetterContent 
With myContent 
 .Salutation ="Hello" 
 .SalutationType = wdSalutationOther 
 .SenderName = Application.UserName 
 .SenderInitials =Application.UserInitials 
End With 
Documents.Add.RunLetterWizard _ 
 LetterContent:=myContent, WizardMode:=True

L'exemple suivant utilise la méthode CreateLetterContent pour créer un objet LetterContent dans le document actif, puis il utilise cet objet avec la méthode RunLetterWizard.

Set myLetter = ActiveDocument _ 
 .CreateLetterContent(DateFormat:="July 31, 1999", _ 
 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:="436 SE 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

Voir aussi

Objet Document

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.

Partager via