Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie une collection DocumentProperties qui représente toutes les propriétés de document personnalisé pour le document spécifié.
Syntaxe
expression. CustomDocumentProperties
expression Obligatoire. Variable qui représente un objet Document.
Remarques
Utilisez la propriété BuiltInDocumentProperties pour renvoyer l’ensemble des propriétés de document intégrées.
Les propriétés de type msoPropertyTypeString (MsoDocProperties) ne peuvent pas dépasser 255 caractères.
Pour plus d’informations sur le retour d’un seul membre d’une collection, voir Retour d’un objet d’une collection.
Exemple
Cet exemple insère une liste des propriétés du document personnalisé à la fin du document actif.
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
For Each prop In ActiveDocument.CustomDocumentProperties
With myRange
.InsertParagraphAfter
.InsertAfter prop.Name & "= "
.InsertAfter prop.Value
End With
Next
Cet exemple ajoute une propriété de document personnalisée à Sales.doc.
thename = InputBox("Please type your name", "Name")
Documents("Sales.doc").CustomDocumentProperties.Add _
Name:="YourName", LinkToContent:=False, Value:=thename, _
Type:=msoPropertyTypeString
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.