Word 2016 вставлено поле RevNum не будет автоматически обновляться

Question

Я вставил редакцию документа из меню Вставка-> Быстрые детали-> Поле-> RevNum в свой документ.

Он никогда не обновляет номер, если я не использую F9 после его выделения. Это происходит для всех полей, включая текущую дату + время и время последнего сохранения.

Как настроить автоматическое обновление полей при сохранении документа, чтобы увидеть, что было сохранено? Я нашел вариант обновления при открытии и вариант обновления при печати. Но как я узнаю, какую версию документа нужно сообщить людям, когда я сохраню данные, когда мне придется заново открыть их, чтобы получить версию?

Answer 1

Вы можете поместить этот код в объект ThisDocument в VBA.

Private WithEvents App As Word.Application

Private Sub Document_Open()
  Set App = Word.Application
End Sub

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
  ActiveDocument.Fields.Update
End Sub

ИЛИ - если вы используете команду SaveAs:

Sub FileSaveAs()

  Dialogs(wdDialogFileSaveAs).Show

  'returns the name including the .doc extension 
  ChosenFileNameAndExtension = ActiveDocument.Name 'Or use .FullName

  ActiveDocument.Fields.Update

End Sub