Document.ContentTypeProperties (Word)

Retorna uma coleção metaproperties que representa os metadados armazenados em um documento, como nome do autor, assunto e empresa. Somente leitura.

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