请教：如何用代码移除word中的模块

langzi74 · 发表于 2005-7-25 11:42

守柔老大的代码集中有删除全部代码的例子，但能不能用代码删除WORD中的其他模块呢？

langzi74 · 发表于 2005-7-25 11:49

目的是让word没有宏！

守柔 · 发表于 2005-7-25 13:58

参考这个：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-25 13:58:09 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0004^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'请在宏安全性/可靠来源中勾选对于VB项目的访问

Sub kk() Dim KillModule As Object Set KillModule = Documents("模拟HTML.DOC").VBProject.VBComponents.Item(2) ActiveDocument.VBProject.VBComponents.Remove KillModule 'Application.OrganizerDelete'如果删除模板中的宏,可用这个方法 End Sub '----------------------

langzi74 · 发表于 2005-7-25 15:55

可以了，谢谢老大！

andy95800 · 发表于 2005-7-25 17:57

up!@@

konggs · 发表于 2005-7-25 17:59

老大真是历害，每天都能学到一些新知识。

plxmm · 发表于 2005-7-25 14:32

与Excel VBA 的删除工程中代码写法差别真大。保存一份。

plxmm · 发表于 2005-7-25 12:26

到 Excel程序开发版块看看。

		自动登录	找回密码
密码			免费注册