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