Document.ContentTypeProperties (Word)

Devuelve una colección MetaProperties que representa los metadatos almacenados en un documento, como el nombre del autor, asunto y compañía.

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