表示 ServerPolicy 对象中的项,该对象包含一个策略的设置。
备注
策略项目不能处于策略范围之外。 策略项目是为存储在服务器(运行 Microsoft Office SharePoint Server)上的文档定义的独特条件。
示例
以下示例列出活动文档的所有策略项的名称和说明。
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。