Compartilhar via


Objeto ServerPolicy (Office)

Representa uma diretiva especificada para um tipo de documento armazenado em um servidor executando o Microsoft Office SharePoint Server.

Comentários

O objeto ServerPolicy é composto por objetos PolicyItem individuais que representam as definições de política individual para o documento ativo.

Exemplo

O exemplo a seguir lista o nome e a descrição de todos os itens de política do documento ativo.

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 

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.