Document.CustomDocumentProperties (Word)

Returns a DocumentProperties collection that represents all the custom document properties for the specified document.

Use the BuiltInDocumentProperties property to return the collection of built-in document properties. Properties of type msoPropertyTypeString (MsoDocProperties) cannot exceed 255 characters in length. For information about returning a single member of a collection, see Returning an object from a collection.

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