Project.CustomDocumentProperties 屬性 (Project)

會取得 DocumentProperties 集合，代表文件的自訂屬性。 唯讀的 Object。

語法

expression。 CustomDocumentProperties

表達 代表 Project 物件的變數。

註解

如需詳細資訊，請參閱《Microsoft Office Visual Basic 參考資料》中的＜DocumentProperties 集合物件 ＞。

若要使用此屬性，您必須使用 [ 工具 ] 功能表上的 [ 參考 命令包含 Microsoft Office 14.0 物件程式庫參考。 物件程式庫包含的 Visual Basic 物件、 屬性、 方法及常數用來操作文件屬性的定義。

可以使用 BuiltinDocumentProperties 屬性傳回內建文件內容的集合。

範例

在下列範例中， 完成日期自訂屬性值就是 Nothing如果屬性新增至專案，但未完成的專案。 在執行 TestDocProps範例之前，新增至作用中的某些工作 project 並且指派給資源。

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 支援與意見反應。