Word 2016 插入的 RevNum 字段不会自动更新

Word 2016 插入的 RevNum 字段不会自动更新

我将文档修订从插入->快速部件->字段->RevNum 插入到我的文档中。

除非我在突出显示后使用 F9,否则它永远不会更新数字。所有字段都会发生这种情况,包括当前日期+时间和上次保存时间。

如何将字段设置为在保存文档时自动更新,以便查看已保存的内容?我找到了打开时更新的选项和打印时更新的选项。但是,当我必须重新打开文档以获取修订版本时,我如何知道在保存时要告诉人们哪个文档修订版本?

答案1

您可以将此代码放入ThisDocumentVBA 中的对象中。

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

相关内容