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

0

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 de documento devo informar às pessoas quando eu salvar quando tiver que reabri-las para obter a revisão?

simpleuser
fonte

Respostas:

1

Você pode colocar esse código em ThisDocumentobjeto 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
Dampas
fonte