Document.ContentTypeProperties (Word)

Returns a MetaProperties collection that represents the metadata stored in a document, such as author name, subject, and company.

Dim mpsContentTypeProperties As Office.MetaProperties
Set mpsContentTypeProperties = ActiveDocument.ContentTypeProperties