Свойство Project. Кустомдокументпропертиес (Project)Project.CustomDocumentProperties property (Project)

Возвращает коллекцию DocumentProperties , представляющую настраиваемые свойства документа.Gets a DocumentProperties collection representing the custom properties of the document. Объекттолько для чтения.Read-only Object.

СинтаксисSyntax

выражение.expression. CustomDocumentProperties

Expression (выражение ) Переменная, представляющая объект Project .expression A variable that represents a Project object.

ПримечанияRemarks

Для получения дополнительных сведений см. объект коллекции DocumentProperties в справочнике по Microsoft Office Visual Basic.For more information, see DocumentProperties Collection Object in the Microsoft Office Visual Basic Reference.

Чтобы использовать это свойство, необходимо добавить ссылку на библиотеку объектов Microsoft Office 14,0 с помощью команды " ссылки " в меню " Сервис ".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. Библиотека объектов содержит определения для объектов, свойств, методов и констант Visual Basic, которые используются для управления свойствами документа.The Object Library contains definitions for the Visual Basic objects, properties, methods, and constants used to manipulate document properties.

Используйте свойство BuiltinDocumentProperties , чтобы возвратить коллекцию встроенных свойств документа.Use the BuiltinDocumentProperties property to return the collection of built-in document properties.

ПримерExample

В следующем примере Дата завершения настраиваемого свойства не будет иметь значение Nothing , если свойство добавлено в проект, но проект не завершен.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. Перед запуском примера тестдокпропс добавьте в активный проект некоторые задачи и назначьте их ресурсу.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

Ниже приведены результаты работы макроса тестдокпропс для проекта, у которого нет добавленного свойства Date Completed :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 and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.