Selection.InsertAfter Text:=\如何预防宏病毒\ Selection.InsertParagraphAfter Beep
Selection.InsertAfter Text:=\答案：\ Selection.Font.Italic = 1
Selection.InsertAfter Text:=\不要看我......\ GoTo out Else
Count = Count + 1 For j = 1 To 4 Beep
Documents.Add Next j
Selection.Paragraphs.Alignment = wdAlignParagraphCenter Selection.InsertAfter Text:=\宏病毒\ If Count = 2 Then GoTo out GoTo try End If Wend End If out: End Sub
4．清除宏病毒
对每一个受感染的word文档进行如下操作：
打开受感染的word文档，进入宏编辑环境（Alt+F11），打开“Normal
Microsoft Word”对象“This Document”，清除其中的病毒代码（只要删除所有内容即可）。
然后打开“Project”“Microsoft Word”“This Document”，清除其中的病毒
6
代码。
实际上，模板的病毒代码只要在处理最后一个受感染文件时清除即可，然而清
除模板病毒后，如果重新打开其他已感染文件，模板将再次被感染，因此为了保证病毒被清除，可以查看每一个受感染文档的模板，如果存在病毒代码，都进行一次清除。
四、实验结果
1．执行第一个病毒'Macro-1：Micro-Virus时，当打开文档时出现下图情况
文档关闭时也会出现上图这种情况。
这种病毒代码只是在启动和关闭WORD文档时会出现干扰的情况，其它并无恶意代码执行，但与此同时病毒代码会自动复制到WORD文档模板中，导致其它文档打开时会感染此病毒。
2．在WORD文档中注入第二种病毒'Macro_2：moonlight
这第二种病毒是基于时间触发的当时间为2013年时，病毒将会被执行，验证时需要改变时间。
7
这是病毒执行时的情况，让你计算数值，如果计算正确会出现下图情况
如果计算错误将会自动打开四个文档，最后一个文档里面写着宏病毒三个字，其它三个都是空文档。
这种病毒对原文档的影响是很大的，无法对文档进行更改，就算更改也不会保存。此病毒还有潜在的破坏力，如果他人将病毒代码中加入一些破坏或影响系统的代码，这种代价是很大的。并且这种病毒也具有自我复制能力，能影响打开的文档。
8