ServerPolicy Object - PowerPoint

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

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

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`

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: