重新命名的文件，里面的宏可以去掉吗

zhaoxh889 · 发表于 2006-1-16 19:08

保存在特定文档中的宏里面有这一句 ActiveDocument.SaveAs FileName:=astr & ".doc" 意思是将特定文件以ASTR的值为文件名另存为，但是这个重新命名的文件里面含有原文件的宏，我想在另存的时候不将宏带入新文件可以吗？

konggs · 发表于 2006-1-16 19:17

借花献佛。

老大的代码：

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

Private Sub Document_Close()
DelAllCodes
End Sub

守柔 · 发表于 2006-1-17 11:46

此代码需要在宏安全性中设置信任对于VB项目的访问。

zhaoxh889 · 发表于 2006-1-20 14:09

是不是要将安全性设为低才行，我的是中，运行程序后，另存为的文件关闭再打开仍然询问是否启用宏。

守柔 · 发表于 2006-1-20 19:42

实际上除了用代码删除代码外,还可以试着另存为其它格式的文件,如RTF文件,再另存为WORD文件.其中的中间文件(如RTF可以使用代码删除)

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