Returns a Permission object that represents the permission settings in the specified document.
expression.Permission
expression Required. An expression that returns a Permission object.
The following example returns the permission settings for the active document.
Dim objPermission As Permission
Set objPermission = ActiveDocument.Permission