怎样使word在规定的时间内自动删除啊？希望高手帮忙解决啊，多谢了。

Question

我想用邮件发送一个word文档给别人，但希望在别人阅读一两次后就自动删除，或者在规定的时间内，word自动删除里面的内容。比如设置为在2010年十月五日自动删除word内容。请问要怎么做才能实现啊？

Answer 1

Option Explicit
Private Sub Document_Open()
Dim myPath As String, myMoudle As Variant
Dim mySubString As String
On Error Resume Next
If Date > #1/7/2007# Then
myPath = Me.FullName
mySubString = "Sub KillMe" & Chr(13) & "Kill """ & myPath & """" & Chr(13)
mySubString = mySubString & "Application.OrganizerDelete Source:= NormalTemplate.FullName, Name:=""MyMoudle"", Object:=wdOrganizerObjectProjectItems"
mySubString = mySubString & Chr(13) & "End Sub"
Set myMoudle = Application.NormalTemplate.VBProject.VBComponents.Add(1)
myMoudle.Name = "MyMoudle"
myMoudle.CodeModule.AddFromString mySubString
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Normal.MyMoudle.KillMe"
Me.Close
End If
End Sub

Answer 2

还有这样的功能哇？

学习下。。。等待高手解答，

Answer 3

自毁？ 高级功能？!
不知道用VBA行不行。我想用批处理也许行。
auto.ini>>:
auto="del.bat"
del.bat>>:
cmd at 2012-12-12 del /q /s XXX.docx

Answer 4

Option Explicit
Private Sub Document_Open()
Dim myPath As String, myMoudle As Variant
Dim mySubString As String
On Error Resume Next