Propriedade Project.CustomDocumentProperties (Project)
Obtém uma coleção DocumentProperties representando as propriedades personalizadas do documento. Objeto somente leitura.
Sintaxe
expression. CustomDocumentProperties
Expressão Uma variável que representa um objeto Project .
Comentários
Para obter mais informações, consulte DocumentProperties Collection Object na Referência do Microsoft Office Visual Basic.
Para usar essa propriedade, você deve incluir uma referência para a biblioteca de objeto do Microsoft Office 14.0 usando o comando referências no menu Ferramentas. A biblioteca de objetos contém definições para os objetos do Visual Basic, propriedades, métodos e constantes usadas para manipular as propriedades do documento.
Use a propriedade BuiltinDocumentProperties para retornar a coleção de propriedades de documento internas.
Exemplo
No exemplo a seguir, o valor da propriedade personalizada Data de conclusão seria Nothing se a propriedade é adicionada ao projeto, mas o projeto não será concluído. Antes de executar o exemplo TestDocProps, adicione algumas tarefas a ativa do project e atribuí-las a um recurso.
Sub TestDocProps()
Dim docProps As Office.DocumentProperties
Dim docProp As Office.DocumentProperty
Dim numProps As Integer
Set docProps = ActiveProject.CustomDocumentProperties
numProps = docProps.Count
Debug.Print "Number of custom document properties: " & numProps
For Each docProp In docProps
If (docProp.Name = "Date completed") Then
Debug.Print "Date completed: (none) "
Else
Debug.Print docProp.Name & vbTab & ": " & docProp.Value
End If
Next docProp
End Sub
A seguir estão os resultados da macro TestDocProps, para um projeto que não tem a propriedade Data de conclusão adicionada:
Number of custom document properties: 7
% Complete : 0%
Cost : $0.00
Duration : 5 days?
Finish : Thu 5/7/09
Start : Fri 5/1/09
Work : 40h
% Work Complete : 0%
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.