Word文档定时自杀（删除）

smhf_6

若不启用宏，会自杀吗？

若启用宏后自杀，还不如未打开前直接删除。

不清楚自杀的用途产？

kewoo

各位大哥, 太厉害了.你们是怎么学的呀. 有什么秘籍啊? 我怎么就学不会呢.

lst

QUOTE:

以下是引用守柔在2007-1-6 17:36:45的发言：

是的,在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

假如要求的时间精确到指定日期的具体时间，譬如要求准确的时间是2007年1月15日13时15分以后，上面的代码该如何修改？

[此贴子已经被作者于2007-1-14 12:56:12编辑过]

守柔

QUOTE:

以下是引用lst在2007-1-14 12:52:31的发言：

假如要求的时间精确到指定日期的具体时间，譬如要求准确的时间是2007年1月15日13时15分以后，上面的代码该如何修改？

如：

 If Now >= #1/15/2007 1:15:00 PM# Then

注意，日期型数据，WORD会自动转换，只要注意前后使用“#”，两个“#”之间的文本可按正常日期方式如“2007-1-15 13:15”方式或者“2007/1/15 13:15”等形式键入即可。

lst

If Now >= #1/15/2007 1:15:00 AM# Then

如果是上午就要改为“AM”，对吗？

守柔

QUOTE:

以下是引用lst在2007-1-14 14:35:17的发言：

If Now >= #1/15/2007 1:15:00 AM# Then

如果是上午就要改为“AM”，对吗？

如果你只读了一半，您就实际实验一下好吗？我在上面是说了，会自动转换的。

jianghe79

太厉害了，真有趣。

linzhi9876

补充一个问题，如何像Excel中一样，在word中时间之后连文档一起删除？请高手指点

plk

我购买的word2010里也没有说明白。

xycompass

老师，我的word 文档是97-2003版，先设置“启用所有宏”，点视图--查看宏--创建宏，名称为hong11

sub hong11()
Private Sub Document_Open()
   If Now >= #8/30/2022 10:50:00 AM# Then
        With ActiveDocument
            .Content.Delete
            .Close True
        End With
    End If
End Sub
End Sub

F8调试，第一行就提示缺少End Sub
请指教？