通过

Project.CustomDocumentProperties 属性 (Project)

  • 项目

获取一个代表文档自定义属性的 DocumentProperties 集合。 只读 Object 对象。

语法

expression。 CustomDocumentProperties

表达 一个代表 Project 对象的变量。

备注

有关详细信息，请参阅《Microsoft Office Visual Basic 参考》中的 DocumentProperties 集合对象。

若要使用此属性，必须使用 工具 菜单上的 引用 命令中包括对 Microsoft Office 14.0 对象库的引用。 对象库包含 Visual Basic 对象、 属性、 方法和常量用来操纵文档属性的定义。

使用 BuiltinDocumentProperties 属性可返回内置文档属性的集合。

示例

在以下示例中， 完成日期自定义属性值是 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宏，并没有 完成日期属性添加的项目的结果如下:

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。