Partager via

Propriété Application.ActiveDocument (Publisher)

  • Article

Renvoie un objet Document qui représente la composition active. Si aucun document n'est ouverte, une erreur se produit.

Syntaxe

expression. ActiveDocument

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Document

Exemple

Cet exemple permet à l'utilisateur d'affecter un nom de fichier à la composition active et de l'enregistrer sous ce nouveau nom. Le nom du fichier, ainsi qu'un autre texte, sont alors insérés à la suite du texte actuellement sélectionné. Notez que doit être remplacé par un nom de publication valide pour que FileName cet exemple fonctionne.

Sub NewsLetterSave() 
 
 Dim strFileName As String 
 
 ' Assign the explicit file name to a variable. 
 strFileName = "FileName" 
 Publisher.ActiveDocument.SaveAs strFileName 
 
 ' Insert the file name and supporting text after selected text. 
 Selection.TextRange.Collapse pbCollapseEnd 
 Selection.TextRange = _ 
 " This publication has been saved as " & strFileName 
 
End Sub

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.