如何删除当前活动文档

cxffxc · 发表于 2004-5-6 11:41

在VBA中，输入删除当前活动文档

我用

Kill ActiveDocument

不行

守柔 · 发表于 2004-5-6 16:26

请参阅：

Private Sub Document_Open() ActiveDocument.ReadOnlyRecommended = True If ActiveDocument.ReadOnly = False Then ActiveDocument.Close False Kill Me.FullName ActiveDocument.Close False ActiveDocument.ReadOnlyRecommended = False End Sub

cxffxc · 发表于 2004-5-6 20:34

谢谢，好象不行

Kill Me.FullName

守柔 · 发表于 2004-5-7 05:01

打开之前将活动文档设置为只读才能删除。

如果使用 Kill 来删除一个已打开的文件，则会产生错误。

请说明你的具体要求。

cxffxc · 发表于 2004-5-7 09:10

我的本意是：如果文档使用到一定时间后，再次打开文档时，文档会动删除。

守柔 · 发表于 2004-5-7 14:43

Private Sub Document_Open() If Date > #5/1/2004# Then'设置期限 MsgBox "已过期" If ActiveDocument.ReadOnly = False Then'如果用户对建议只读选项中选中"否",则关闭该文件. ActiveDocument.Close False Exit Sub Else Kill Me.FullName'自杀 ActiveDocument.Close False End If End If End Sub '关键保存该文档时请在选项\安全性中选中"建议以只读方式打开文档"

'WORD中下列设置有时灵有时不灵，不知何故。

‘ActiveDocument.ReadOnlyRecommended = True

cxffxc · 发表于 2004-5-7 15:16

谢谢

办公之星 · 发表于 2004-5-7 17:36

　　有点象自杀性炸弹设置了。

cxffxc · 发表于 2004-5-7 18:50

如果把宏的安全级别提高，宏就不能运行了，删除不能进行，如何办呢？

守柔 · 发表于 2004-5-7 19:21

在WORD中，尚未有好办法。以前我曾发过一个贴子，关于宏安全性（本论坛），以及七叶一枝梅对于此的论述。

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