Word文档定时自杀（删除）

huicheng

Excel有很多定时自杀的例子，请教Excel定时自杀的代码能否用到Word文件上？

如：

Private Sub Workbook_Open()
If Now() >= DateSerial("2007", "1", "1") Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
  Application.Quit
End If
End Sub

[此贴子已经被作者于2007-1-7 10:28:19编辑过]

daniel808492

上面那一段程序是什么意思

andysky

我试过,WORD中无法用.

只能变通.

以下两句改一下

ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
*********************************

   Selection.WholeStory
   Selection.Delete Unit:=wdCharacter, Count:=1

守柔

QUOTE:

以下是引用andysky在2007-1-6 16:23:56的发言：

我试过,WORD中无法用.

只能变通.

以下两句改一下

ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
*********************************

   Selection.WholeStory
   Selection.Delete Unit:=wdCharacter, Count:=1

是的,在WORD中没有能类似的ChangeFileAccess方法,

可以改成如andysky兄的方法或者:

Private Sub Document_Open()
    If Now() >= DateSerial("2007", "1", "1") Then
        With ActiveDocument
            .Content.Delete
            .Close True
        End With
    End If
End Sub

ntadmin

Word文件可以定时自杀吗？

什么意思啊？？？

huicheng

３、４楼都可以将文件清除，但原文件依然保留着，最好是将原文件一块儿删除掉。

huicheng

QUOTE:

以下是引用ntadmin在2007-1-6 19:51:22的发言：

Word文件可以定时自杀吗？

什么意思啊？？？

在WORD文档中写入代码，指定在XXXX年X月X日以后打开该文档时该文档会自动删除。

jackeroo

不错。希望各位高手继续改进。

huicheng

QUOTE:

Private Sub Document_Open()
    If Now() >= DateSerial("2007", "1", "1") Then
        With ActiveDocument
            .Content.Delete
            .Close True
        End With
    End If
End Sub

即使文件写了保护，不必提示，照样要删除文件该如何改？

[此贴子已经被作者于2007-1-7 13:14:48编辑过]

konggs

试试此法。
http://club.excelhome.net/viewthread.php?tid=212027&px=0

为便于以后查找，所以，另开贴子。