1、1 软件设置：关闭杀毒软件的自我防护功能。
2、自我复制功能演示 打开或新建一个Word文档，ALT+F11快捷键进入宏编写窗口 在Project|Microsoft word对象|ThisDocument中编辑实验源代码
3、默认的病毒发作时间为每月1号，触发发作后文档将自我复制20篇，为检验病毒是否能够成功运行，我们不妨将电脑时间修改为1号，再重新打开文档： 打开文档后将出现如下计算题：
4、输入正确答案后文档将打开为如下图：
5、若输入结果错误文档将自动复制20篇：
6、清除宏病毒： 对受感染的文档，在Word编辑页面按Alt+f11快捷键进入宏的编辑窗口，分别删除Nomal和Project里的this document,将其中的代码删除并保存，再次打开文档后宏病毒将不再运行。
7、 自己编写一个宏
宏内容：在Word文档中显示现在距离高考的时间
代码：
Sub Timer()
s = DateDiff("s", Now, DateSerial(2015, 6, 6) + TimeSerial(24, 0, 0))
dd = Int(s / (86400))
s = s - dd * 86400
hh = Int(s / 3600)
s = s - hh * 3600
mm = Int(s / 60)
s = s - mm * 60
ss = s
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Text = "距离2015年高考还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
Selection.Collapse Direction:=wdCollapseEnd
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub
8、编译运行
9、运行结果：
