Document.BuiltInDocumentProperties (Word)

Renvoie une collection DocumentProperties qui représente toutes les propriétés de document prédéfinies pour le document spécifié.

Pour renvoyer un seul objet DocumentProperty qui représente une propriété de document prédéfinie spécifique, utilisez la propriété BuiltInDocumentProperties . Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection. Utilisez la propriété CustomDocumentProperties pour renvoyer la collection des propriétés de document personnalisées.

Sub ListProperties() 
 Dim rngDoc As Range 
 Dim proDoc As DocumentProperty 
 
 Set rngDoc = ActiveDocument.Content 
 
 rngDoc.Collapse Direction:=wdCollapseEnd 
 
 For Each proDoc In ActiveDocument.BuiltInDocumentProperties 
 With rngDoc 
 .InsertParagraphAfter 
 .InsertAfter proDoc.Name & "= " 
 On Error Resume Next 
 .InsertAfter proDoc.Value 
 End With 
 Next 
End Sub