WORD中文档属性域DocProperty的应用

WORD中有一个文档属性域：DocProperty，该域的属性可以自定义，值可以在定义时写入，也可以使用VBA赋值（赋完后更新域便可得到）。

创建文档属性域的属性时可以通过如下图所示的位置增加。

属性定义完成后，在VBA中可通过如下示例填写各域属性的值Set prps doc.CustomDocumentProperties

prps.Item("LetterDate").Value = Format(Date,"Long Date")

通过以下示例代码更新域（示例中selection对象的homekey方法是将光标移至文档开头位置）

with appWord.Selection

.Wholestory

.Fields.Update

.HomeKey unit:=wdstory

End With