Document.BuiltInDocumentProperties (Word)

Devuelve una colección DocumentProperties que representa todas las propiedades integradas del documento para el documento especificado.

Para devolver un único objeto DocumentProperty que representa una propiedad de documento integrada específica, utilice la propiedad BuiltInDocumentProperties . Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección. Utilice la propiedad CustomDocumentProperties para devolver la colección de propiedades de documento personalizadas.

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