Document.Permission (Word)

Retorna um objeto Permission que representa as configurações de permissão no documento especificado.

Dim objPermission As Permission 
 
Set objPermission = ActiveDocument.Permission