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

preview_player

Показать описание

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

код:
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

АниКей Скайвокер

Рекомендации по теме