VBA高手帮帮忙，如何让word2003在文件关闭（或保存）时，后台自动备份文件到指定目录？

第1步，运行Word 2003，在程序窗口中依次单击“工具”→“选项”菜单命令，打开“选项”对话框。

第2步，在“选项”对话框中切换至“保存”选项卡。在“保存选项”区域中选中“保留备份”复选框，然后单击“确定”按钮即可，如图2010040835所示。

图2010040835 选中“保留备份”复选框

经过上述设置，以后在使用Word编辑并保存所有文档时，系统会在保存原文件的文件夹中自动生成一个名为“备份属于 原文件名.wbk”的备份文件，并且该备份文件可以用Word直接打开和编辑，

Private Sub Document_Close()
If Not ThisWorkbook.Saved Then
Answer = MsgBox("是否保存？", vbYesNo + vbDefaultButton2, "你要的效果")
If Answer = vbYes Then ThisWorkbook.Save
End If
End Sub

Document_Close是一个WORD被关闭时执行的事件
第二行，判断是否已经被保存过
第三行，是弹出对话框询问是否要保存
第四行，是当你确认时，就保存

这个事件里的内容，是我用在excel里的。事件，是WORD的。
你自己小改一下就能用

你个男的装什么小妹么。哈哈
双击THISDOCUMENT 模块 粘贴下面代码

Private Sub Document_Close()
Me.SaveAs "c:\a" & Int(1000 * Rnd()) & ".docx"
End Sub

设置一下啊