Remarks

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

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

Visual Basic for Applications
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 

See also: