Document.Permission (Word)

Returns a Permission object that represents the permission settings in the specified document.

Dim objPermission As Permission 
 
Set objPermission = ActiveDocument.Permission