作者：乔山办公网日期：
返回目录：office365
楼主，当您想在文件关闭时，自动保存doc文件的话.
请在打开的WORD文档上按Alt+F11->进入MS VB窗口-->左边"工作-project"下，找到thisducument, 并双击它. -->上边"通用"下拉列表中选"document", 右边一个下接列表中选"close". 就会看到如下代码:
在其中间加入一行代码, 使其变成这样:
Private Sub Document_Close()
ThisDocument.SaveAs FileName:="d:\work\" & ThisDocument.Name
End Sub
这一行代码就是"另存"的意思. 其中的"d:\work\"就是您想文件关闭时自动保存文档的文件夹名字及路径, 您可以按您要求改成自己的文件夹(您硬盘中要真正有的)。
最后，关闭这个MS VB 窗口，当关闭此文件时，文档就会自动另存一份在指定的文件夹中.
需要注意的是:
1. 如果你的文件是新文件，或是修改过未存的您需要先保存，再关闭时它会另存。但是如果您关闭前没有保存，修改结果会直接存在另存上面。新文件会是默人的文件名。
2. 如果您想在关闭时自动保存当前文件，同时再另存一份，您要在上述代码前，再加一行代码。
ThisDocument.Save
注:加这行代码请您慎重！它的意思就是您关闭文件时，就会执行保存操作，不管您是否愿意将修改结果进行保存，它都会在文件关闭时执行保存操作。
3. 这个宏只对当然的文件打开的有效。 如果您想在所有的word文件上都应用这个效果。 请您将这个代码加到word那个模板文件(normal.dot)上面去。这样所有新增文档都会应用到这个宏了。关于normal.dot的位置，您可以在选项里查，也可以直接在硬盘中"搜索"这个文件名. 编辑normal.dot请注意，不要双击打开，而是右键打开。
说明完毕
回答者： lxlzmh2002 - 魔导师 十级 2009-9-1 13:55
============================================================
再补充一下
如果应用模板normal.dot的话要用7a64e4b893e5b19e335
ActiveDocument.SaveAs FileName:="d:\work\" & ActiveDocument.Name
自动保存要用
ActiveDocument.Save
原述thisdocument，因为新建文件的同时normal.dot也会打开。关闭时normal.dot也会被另存. 所以使用activedocument才会是应用到新建文件.