问导入word中的宏- Visual Basic错误

EN

Option Explicit

Private Sub Document_Open()
Dim ur  As UndoRecord
Dim objField  As Field

On Error Resume Next
Set ur = Application.UndoRecord
ur.StartCustomRecord "Update all fields"
'Update fields
For Each objField In ActiveDocument.Fields
   If objField.Type = wdFieldSequence Then
      objField.Update
   End If
Next
ur.EndCustomRecord
'If no other change is made (except for updating the fields), allow closing without saving
ActiveDocument.Saved = True
'Check for standard page setup
RestorePageSetup

End Sub