ServerPolicy Object (Office)

Represents a policy specified for a document type stored on a server running Microsoft Office SharePoint Server.

The ServerPolicy object is composed of individual PolicyItem objects representing the individual policy definitions for the active document.

The following example lists the name and description of all of the policy items for the active document.

Sub ListPolicyItems() 
Dim objSrvPolicy As ServerPolicy 
Dim objPolicyItem As PolicyItem 
Dim strPolicyItemList As String 
 
Set objSrvPolicy = ActiveDocument.ServerPolicy 
 
For Each objPolicyItem In objSrvPolicy 
 strPolicyItemList = "Policy Item " & objPolicyItem.Name & " - " & _ 
 objPolicyItem.Description & vbCrLf 
Next 
MsgBox (strPolicyItemList) 
 
End Sub 

Show:
© 2015 Microsoft