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