Propriedade Project. CustomDocumentProperties (Project)Project.CustomDocumentProperties property (Project)

Obtém uma coleção DocumentProperties representando as propriedades personalizadas do documento.Gets a DocumentProperties collection representing the custom properties of the document. Objeto somente leitura.Read-only Object.

SintaxeSyntax

expression.expression. CustomDocumentProperties

expressão Uma variável que representa um objeto Project .expression A variable that represents a Project object.

ComentáriosRemarks

Para obter mais informações, consulte DocumentProperties Collection Object na referência do Microsoft Office Visual Basic.For more information, see DocumentProperties Collection Object in the Microsoft Office Visual Basic Reference.

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.To use this property, you must include a reference to the Microsoft Office 14.0 Object Library by using the References command on the Tools menu. 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.The Object Library contains definitions for the Visual Basic objects, properties, methods, and constants used to manipulate document properties.

Use a propriedade BuiltinDocumentProperties para retornar a coleção de propriedades de documento internas.Use the BuiltinDocumentProperties property to return the collection of built-in document properties.

ExemploExample

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.In the following example, the Date completed custom property value would be Nothing if the property is added to the project, but the project is not completed. Antes de executar o exemplo TestDocProps, adicione algumas tarefas a ativa do project e atribuí-las a um recurso.Before you run the TestDocProps example, add some tasks to the active project and assign them to a resource.

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:Following are the results of the TestDocProps macro, for a project that does not have the Date completed property added:

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áriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.