BuiltInDocumentProperties Property

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