word文档可以自动保存和备份到指定文件夹里

LQ落叶

    各位老师  晚上好

现在想做一个Word文档的宏工具，桌面一个Word文档，可以每两分钟自动保存一次到指定文件夹AA中备份，代码如下。

不过下面代码有一个问题，原来桌面那个文档修改内容不能保存，即使是对Word文档进行保存了，关闭打开后仍然是修改前的，请各位老师指导，谢谢！

    Sub 自动备份()
    Dim NewTime
    NewTime = Now + TimeValue("00:02:00")
    Dim myPath$, myName$
    myPath = ActiveDocument.Path
    myName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
    ChangeFileOpenDirectory "E:\AA\"
    ActiveDocument.SaveAs FileName:=myName & ".doc", ReadOnlyRecommended:=False
    Application.OnTime NewTime, "自动备份"
    CreateObject("Wscript.shell").popup "备份成功", 1, "提示!1秒后自动关闭!"
    End Sub

LQ落叶

自己顶一下，有大神可以帮帮忙吗？非常感谢！！！

kqbt

当Word使用SaveAs之后，你编辑的ActiveDocument实际上已经变成你另存的那一个文档了，这时你最初打开的那个ActiveDocument已经被“抛弃”了，所以你之后的操作不会对它产生任何影响。
供参考：

1. Sub 自动备份()
   
2.     Dim NewTime, wDoc As Document
   
3.     NewTime = Now + TimeValue("00:02:00")
   
4.     Dim myPath$, myName$
   
5.     myPath = ActiveDocument.Path
   
6.     myName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
   
7.     ChangeFileOpenDirectory "E:\AA"
   
8.     ActiveDocument.Content.Copy
   
9.     Set wDoc = Documents.Add(Visible:=False)
   
10.     With wDoc
    
11.         .Content.Paste
    
12.         .SaveAs FileName:=myName & ".doc", ReadOnlyRecommended:=False
    
13.         .Close False
    
14.     End With
    
15.     Application.OnTime NewTime, "自动备份"
    
16.     CreateObject("Wscript.shell").popup "备份成功", 1, "提示!1秒后自动关闭!"
    
17. End Sub

复制代码

kqbt

最近我也受到类似问题困扰，因工作需要想让打开的每个不同Excel表格在完成编辑保存时自动备份到指定目录，它的SaveCopyAs方法（Word似乎没有这个方法）可以在保证ActiveWorkBook源文件不变的情况下自动另存一个“副本”到指定目录。但是因为Excel文件很多，总不能把这个代码预先加到每个Excel文件的模块里面去。这时想到使用加载项，但是因为用的是Workbook_BeforeSave事件，打开的Excel文件又激发不了。。。
期待有经验的朋友指点一下！

LQ落叶

kqbt 发表于 2017-5-10 10:37
当Word使用SaveAs之后，你编辑的ActiveDocument实际上已经变成你另存的那一个文档了，这时你最初打开的那个 ...

      谢谢老师的指导
      不过现在出现新的问题，如果用老师的代码，原来文件是可以打开了，但是备份的文件却打不开，提示内容错误，请老师指教，非常感谢！！！
      

zhanglei1371

kqbt 发表于 2017-5-10 10:48
最近我也受到类似问题困扰，因工作需要想让打开的每个不同Excel表格在完成编辑保存时自动备份到指定目录， ...

使用AHK来定时复制，轻松搞定。但就是需要启动外源性脚本...

kqbt

LQ落叶 发表于 2017-5-12 21:35
谢谢老师的指导
      不过现在出现新的问题，如果用老师的代码，原来文件是可以打开了，但是备份 ...

我测试时没发现有这个问题，可能是你的模板出问题了，可以删除Normal.dot模板后再试试。

kqbt

zhanglei1371 发表于 2017-5-13 06:37
使用AHK来定时复制，轻松搞定。但就是需要启动外源性脚本...

网上搜了一下 AHK，好像说是 Auto Hot Key 。。。
这个基本没有接触过，更别提脚本了。Excel本身难道真的实现不了？

yayahzmeng

怎么可能实现不了？思路的问题
连续两个SaveAs，第一个另存其它路径为备份，紧跟第二个另存会原来的地方继续编辑

kqbt

yayahzmeng 发表于 2017-5-16 19:32
怎么可能实现不了？思路的问题
连续两个SaveAs，第一个另存其它路径为备份，紧跟第二个另存会原来的地方继 ...

的确没试过，应该可以实现另存！
还有如何对任何打开的文档都生效呢？