vba - MS Word 2003 上打开自定义属性值增量

Question

我有一个 Word 文档，在其中创建了一个自定义属性（文件 > 属性 > 自定义）

名称：汽车公司

类型：数字

价值：999

我想知道如何在每次保存此文件时自动将值增加 1 并覆盖当前值。

Answer 1

我会使用Document_Save事件，并在其中增加值。一个很好的链接在这里（并且有点太复杂而无法发布摘录）。

虽然如果你只想简单地做，我认为这会奏效：

ActiveDocument.CustomDocumentProperties("autoInc").Value =  
  ActiveDocument.CustomDocumentProperties("autoInc").Value +  1