Я бы использовал Document_Save
Событие, и в нем увеличивалось значение.Отличная ссылка для этого - здесь (и слишком сложно, чтобы опубликовать отрывок).
Хотя, если вы хотите просто сделать это просто, я думаю, это будет работать:*
ActiveDocument.CustomDocumentProperties("autoInc").Value =
ActiveDocument.CustomDocumentProperties("autoInc").Value + 1