Envelope.UpdateDocument, méthode (Word)

Article
04/07/2023

Met l'enveloppe à jour dans le document en appliquant les paramètres d'enveloppe actuels.

Syntaxe

expression. UpdateDocument

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

Remarques

Si vous utilisez cette propriété avant d'ajouter une enveloppe dans le document, une erreur se produit.

Exemple

Cet exemple montre comment affecter à l'enveloppe contenue dans le fichier Report.doc un format d'enveloppe personnalisé (11,50 sur 19,20 centimètres).

Sub UpdateEnvelope() 
 
 On Error GoTo errhandler 
 
 With Documents("Report.doc").Envelope 
 .DefaultHeight = InchesToPoints(4.5) 
 .DefaultWidth = InchesToPoints(7.5) 
 .UpdateDocument 
 End With 
 
 Exit Sub 
 
errhandler: 
 
 If Err = 5852 Then _ 
 MsgBox "Report.doc doesn't include an envelope" 
 
End Sub

Cet exemple montre comment ajoute une enveloppe dans le document actif en utilisant des adresses prédéfinies. Le format d'enveloppe par défaut Facing Identification Mark (FIM-A) les paramètres sont définis sur True, et l'enveloppe dans le document actif est mis à jour et le code barres.

Dim strAddress As String 
Dim strReturn As String 
 
strAddress = "Darlene Rudd" & vbCr & "1234 E. Main St." _ 
 & vbCr & "Our Town, WA 98004" 
strReturn = "Patricia Reed" & vbCr & "N. 33rd St." _ 
 & vbCr & "Other Town, WA 98040" 
ActiveDocument.Envelope.Insert _ 
 Address:=strAddress, ReturnAddress:=strReturn 
With ActiveDocument.Envelope 
 .DefaultPrintBarCode = True 
 .DefaultPrintFIMA = True 
 .UpdateDocument 
End With

Voir aussi

Objet Envelope

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