Document.ServerPolicy (Word)

Returns a ServerPolicy object that represents a policy specified for a document stored on a server running Microsoft Office SharePoint Server 2007.

Dim spyServerPolicy As Office.ServerPolicy
Set spyServerPolicy = ActiveDocument.ServerPolicy