Word2003 VBA 宏执行完毕能否删除自身？

413191246se

——Word2003 空白通用模板 Normal.dot 中增加了 VBA 宏以后，会变得越来越大，引起 Word 不稳定，可能会引起崩溃，但一点不要 VBA 宏也不好，影响自动化办公，但还是力求 Normal.dot 越小越好。
——那么，在 Word2003 VBA宏执行完毕能否删除自身呢？
——请朋友们指教，谢谢！
***附带一个小问题：VBA宏可不可以临时调入一段 TXT 格式的 VBA 宏代码执行一次，再删除该段TXT ？

wdpfox

无力相助，只能帮顶！

dafanshu1

这是来自《守柔word编程代码集》中的宏，“删除所有代码(包括自身)”：
Dim i, A As Integer
For Each i In ActiveDocument.VBProject.VBComponents
A = i.CodeModule.CountOflines
i.CodeModule.DeleteLines 1, A
Next

duquancai

Sub shishi()
    Dim js As Object, txt$
    txt = "sub mai() " & vbCrLf & "msgbox ""hell word！"" " & vbCrLf & "end sub"
    Set js = CreateObject("msscriptcontrol.scriptcontrol")
    js.Language = "VBScript"
    js.addcode txt
    js.Run "mai"
End Sub

413191246se

——谢谢 Wdpfox 朋友！帮顶也是关爱！
——谢谢dafanshu1 朋友！——运行出错。守版代码集我手里也有，也学习了一些，但终究感觉太深。最近我一直在重新编程《公文自动排版——只排文字不排表格》，守版代码无暇学习。
——谢谢 杜先生！最近一段时间经常求 杜先生 赐代码，感觉我也成“伸手党”了，有些过意不去，但是，有 杜先生 这么好的高人，不求太可惜了！杜先生 代码编得好，就是我水平太差，理解不了，还请进一步指示！
*
* 假设我有一宏，保存在 C:\RedIt.txt 文本文档中，怎么用一个小宏，把它调入，执行一次后，再释放，就是不残留 RedIt 这个宏的痕迹呢？
* 录制宏代码如下：
Sub RedIt()
    Selection.WholeStory
    Selection.Font.Color = wdColorRed
    Selection.HomeKey Unit:=wdStory
End Sub

dafanshu1

413191246se 发表于 2017-6-8 02:00
——谢谢 Wdpfox 朋友！帮顶也是关爱！
——谢谢dafanshu1 朋友！——运行出错。守版代码集我手里也有，也 ...

我也同你一样，守柔代码集一早就下载了，但一直都没空看。
我在07版和10版都可执行，没提示错误哦，不知你是提示什么错误呢？

tangqingfu

期待大神出手，期待ing……