类台湾1号病毒实验

1、软件设置：关闭杀毒软件的自我防护功能。

2、自我复制功能演示 打开或新建一个Word文档，ALT+F11快捷键进入宏编写窗口 在P筠续师诈roject|Microsoft word对象|ThisDocument中编辑实验源代码

4、输入正确答案后文档将打开为如下图：

6、清除宏病毒： 对受感染的文档，在Word编辑页面按Alt+f11快捷键进入宏的编辑窗口，分别删除Nomal和Project里的this document,将其中的代码删除并保存，再次打开文档后宏病毒将不再运行。

7、 自己编写一个宏宏内容：在Word文档中显示现在距离高考的时间代码：Sub Timer()s = DateDiff("s", Now, D锾攒揉敫ateSerial(2015, 6, 6) + TimeSerial(24, 0, 0))dd = Int(s / (86400))s = s - dd * 86400hh = Int(s / 3600)s = s - hh * 3600mm = Int(s / 60)s = s - mm * 60ss = sSelection.HomeKey Unit:=wdStorySelection.EndKey Unit:=wdStory, Extend:=wdExtendSelection.Text = "距离2015年高考还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"Selection.Collapse Direction:=wdCollapseEndApplication.OnTime Now + TimeValue("00:00:01"), "Timer"End Sub

9、运行结果：