увеличиваем счетчик в документе MS WORD при открытии

автоматическое увеличение номера документа при открытии, счетчик в документе код: Sub autoopen() On Error Resume Next ActiveDocument.Variables("numdoc").Value = ActiveDocument.Variables("numdoc").Value + 1 If Err.Number = 5825 Then ActiveDocument.Variables.Add "numdoc", 1 ActiveDocument.Fields.Update ActiveDocument.Save End Sub