该属性返回一个 DocumentProperties 集合,该集合代表指定文档的所有自定义文档属性。
expression.CustomDocumentProperties
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