CustomDocumentProperties 属性

该属性返回一个 DocumentProperties 集合，该集合代表指定文档的所有自定义文档属性。

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

使用 BuiltInDocumentProperties 属性可返回内置文档属性的集合。

有关返回集合中单独成员的信息，请参阅返回集合中的对象。

示例

本示例在活动文档的末尾插入一个自定义内置属性列表。

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

本示例为 Sales.doc 添加一个自定义内置属性。

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