老大进来看看？？

likedanni

在我的一个word中有很多宏，当我另存这个文件时我只想保存其中的文字信息，不想把宏也保存过去，请问用VBA怎么实现的！谢谢！

konggs

Sub document_close() Dim i, A As Integer For Each i In ActiveDocument.VBProject.VBComponents A = i.CodeModule.CountOflines i.CodeModule.DeleteLines 1, A Next End Sub

'摘自老大的代码。这位楼主有意思：就喜欢找老大，我等闪了。

同时：

启用对 Visual Basic 项目的可信访问：

在“工具”菜单上，指向“宏”，再单击“安全性”。 在“可靠来源”选项卡上，选中“信任对于‘Visual Basic 项目’的访问”复选框。