ServerPolicy Object - Microsoft Office Excel

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: