Document.BuiltInDocumentProperties (Word)

Retorna uma coleção DocumentProperties que representa todas as propriedades de documento internas para o documento especificado.

Para retornar um único objeto DocumentProperty que representa uma propriedade de documento interna específica, use a propriedade BuiltinDocumentProperties . Se o Microsoft Word não definir um valor para uma das propriedades internas do documento, a leitura da propriedade Value para essa propriedade de documento gerará um erro. Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção. Use a propriedade CustomDocumentProperties para retornar a coleção das propriedades personalizadas de documento.

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