Document.DocumentInspectors (Word)

Returns a DocumentInspectors collection that enables you to locate hidden personal information, such as author name, company name, and revision date.

Dim disDocumentInspectors As Office.DocumentInspectors
Set disDocumentInspectors = ActiveDocument.DocumentInspectors