Remarks
A policy item cannot exist outside the scope of a policy. Policy items are distinct conditions defined for a document stored on a server running Office SharePoint Server.

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: