O campo RevNum inserido no Word 2016 não será atualizado automaticamente

Question

Inseri a revisão do documento de Insert- > Quick Parts- > Field- > RevNum no meu documento.

Ele nunca atualiza o número, a menos que eu use F9 depois de destacá-lo. Isso ocorre para todos os campos, incluindo a data atual + hora e o último tempo de salvamento.

Como defino os campos para atualização automática quando salvo o documento para que eu possa ver o que foi salvo? Eu encontrei a opção para atualizar ao abrir e aquele para atualizar ao imprimir. Mas como saberei qual revisão do documento devo informar às pessoas quando eu salvar quando tiver que reabri-las para obter a revisão?

    

Answer 1

Você pode colocar esse código no objeto ThisDocument no 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

OU - se você estiver usando o comando SaveAs:

Sub FileSaveAs()

  Dialogs(wdDialogFileSaveAs).Show

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

  ActiveDocument.Fields.Update

End Sub