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

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

Синтаксис

выражение. CustomDocumentProperties

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

Примечания

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

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

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

Пример

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