Project. CustomDocumentProperties-Eigenschaft (Project)Project.CustomDocumentProperties property (Project)

Ruft eine DocumentProperties -Auflistung ab, die die benutzerdefinierten Eigenschaften des Dokuments darstellt.Gets a DocumentProperties collection representing the custom properties of the document. Schreibgeschütztes Object.Read-only Object.

SyntaxSyntax

Ausdruck.expression. CustomDocumentProperties

Ausdruck Eine Variable, die ein Project -Objekt darstellt.expression A variable that represents a Project object.

BemerkungenRemarks

Weitere Informationen finden Sie unter DocumentProperties-Auflistungsobjekt im Microsoft Office Visual Basic Reference.For more information, see DocumentProperties Collection Object in the Microsoft Office Visual Basic Reference.

Um diese Eigenschaft verwenden zu können, müssen Sie einen Verweis auf die Microsoft Office 14.0-Objektbibliothek einbeziehen, mit dem Befehl Verweise im Menü Extras.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. Die Objektbibliothek enthält Definitionen für die Visual Basic-Objekte, Eigenschaften, Methoden und Konstanten, die zum Bearbeiten von Dokumenteigenschaften verwendet.The Object Library contains definitions for the Visual Basic objects, properties, methods, and constants used to manipulate document properties.

Die Auflistung der integrierten Dokumenteigenschaften wird durch die BuiltinDocumentProperties -Eigenschaft zurückgegeben.Use the BuiltinDocumentProperties property to return the collection of built-in document properties.

BeispielExample

Im folgenden Beispiel wäre der Wert der benutzerdefinierten Eigenschaft Abschlussdatum Nothing, wenn die Eigenschaft wird dem Projekt hinzugefügt, aber nicht das Projekt abgeschlossen ist.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. Bevor Sie das TestDocProps Beispiel ausführen möchten, fügen Sie einige Aufgaben auf das aktive Projekt, und weisen Sie diesem Kontakt eine Ressource hinzu.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

Es folgen die Ergebnisse des Makros TestDocProps für ein Projekt, das nicht hinzugefügte Eigenschaft Abschlussdatum verfügt: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%

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.