Document.CustomDocumentProperties (Word)

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

Use a propriedade BuiltInDocumentProperties para retornar a coleção das propriedades internas do documento. As propriedades do tipo msoPropertyTypeString (MsoDocProperties) não podem exceder 255 caracteres de comprimento. Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

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