Поделиться через


Свойство Project.CustomDocumentProperties (Project)

Возвращает коллекцию DocumentProperties , представляющую пользовательские свойства документа. Объект только для чтения.

Синтаксис

выражение. CustomDocumentProperties

Выражение Переменная, представляющая объект Project .

Замечания

Дополнительные сведения см. в разделе Объект коллекции DocumentProperties в справочнике по Microsoft Office Visual Basic.

Чтобы использовать это свойство, необходимо включить ссылку на библиотеку объектов Microsoft Office 14.0 с помощью команды Ссылки в меню Сервис . Библиотека объектов содержит определения для объектов, свойств, методов и констант Visual Basic, используемых для управления свойствами документа.

Используйте свойство BuiltinDocumentProperties , чтобы вернуть коллекцию встроенных свойств документа.

Пример

В следующем примере значение настраиваемого свойства Date completed будет иметь значение Nothing , если свойство добавляется в проект, но проект не завершен. Перед выполнением примера TestDocProps добавьте некоторые задачи в активный проект и назначьте их ресурсу.

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

Ниже приведены результаты макроса TestDocProps для проекта, в который не добавлено свойство Date completed :

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%

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.