BuiltInDocumentProperties Property

BuiltInDocumentProperties Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns a DocumentProperties collection that represents all the built-in document properties for the specified document.

expression.BuiltInDocumentProperties

expression   Required. An expression that returns one of the objects in the Applies To list.

Remarks

To return a single DocumentProperty object that represents a specific built-in document property, use BuiltinDocumentProperties(index), where index is a WdBuiltInProperty constant. For a list of valid constants, consult the Microsoft Visual Basic Object Browser. For information about returning a single member of a collection, see Returning an Object from a Collection.

If Microsoft Word doesn't define a value for one of the built-in document properties, reading the Value property for that document property generates an error.

Use the CustomDocumentProperties property to return the collection of custom document properties.

Example

This example inserts a list of built-in properties at the end of the active document.

  Sub ListProperties()
    Dim rngDoc As Range
    Dim proDoc As DocumentProperty

    Set rngDoc = ActiveDocument.Content

    rngDoc.Collapse Direction:=wdCollapseEnd

    For Each proDoc In ActiveDocument.BuiltInDocumentProperties
        With rngDoc
            .InsertParagraphAfter
            .InsertAfter proDoc.Name & "= "
            On Error Resume Next
            .InsertAfter proDoc.Value
        End With
    Next
End Sub

This example displays the number of words in the active document.

  Sub DisplayTotalWords()
    Dim intWords As Integer
    intWords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
    MsgBox "This document contains " & intWords & " words."
End Sub