Propriété Project. CustomDocumentProperties (Project)Project.CustomDocumentProperties property (Project)

Obtient une collection DocumentProperties qui représente les propriétés personnalisées du document.Gets a DocumentProperties collection representing the custom properties of the document. Type de données Object en lecture seule.Read-only Object.

SyntaxeSyntax

expression.expression. CustomDocumentProperties

expression Variable qui représente un objet Project .expression A variable that represents a Project object.

RemarquesRemarks

Pour plus d’informations, consultez la rubrique objet de la collection DocumentProperties dans le Guide de référence de Microsoft Office Visual Basic.For more information, see DocumentProperties Collection Object in the Microsoft Office Visual Basic Reference.

Pour utiliser cette propriété, vous devez inclure une référence à la bibliothèque d’objets Microsoft Office 14,0 à l’aide de la commande références du menu Outils .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. La bibliothèque d’objets contient les définitions des objets, propriétés, méthodes et constantes Visual Basic utilisés pour les propriétés de document.The Object Library contains definitions for the Visual Basic objects, properties, methods, and constants used to manipulate document properties.

Utilisez la propriété BuiltinDocumentProperties pour renvoyer la collection des propriétés de document intégrées.Use the BuiltinDocumentProperties property to return the collection of built-in document properties.

ExempleExample

Dans l’exemple suivant, la valeur de la propriété personnalisée Date de fin est Nothing si la propriété est ajoutée au projet, mais que le projet n’est pas terminé.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. Avant d’exécuter l’exemple TestDocProps , ajoutez des tâches au projet actif et affectez-les à une ressource.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

Voici les résultats de la macro TestDocProps , pour un projet qui n’a pas la propriété Date d’achèvement ajoutée :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%

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.