表示为运行 Microsoft Office SharePoint Server 的服务器上存储的文档类型指定的策略。
备注
ServerPolicy 对象由表示活动文档的各个策略定义的单个 PolicyItem 对象组成。
示例
以下示例列出活动文档的所有策略项的名称和说明。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。