CustomDocumentProperties Property

expression.CustomDocumentProperties

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

Remarks

Use the BuiltInDocumentProperties property to return the collection of built-in document properties.

For information about returning a single member of a collection, see Returning an Object from a Collection.

Example

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

Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
For Each prop In ActiveDocument.CustomDocumentProperties
    With myRange
        .InsertParagraphAfter
        .InsertAfter prop.Name & "= "
        .InsertAfter prop.Value
    End With
Next
		

This example adds a custom built-in property to Sales.doc.

thename = InputBox("Please type your name", "Name")
Documents("Sales.doc").CustomDocumentProperties.Add _
    Name:="YourName", LinkToContent:=False, Value:=thename, _
    Type:=msoPropertyTypeString