用VBA代码设置Word自动保存的步骤

有时候，在使用Word进行文字编辑的时候，突然遇到断电，或者电脑自动关机、死机等故障的时候，导致辛辛苦苦做出来的劳动成果全部泡汤，是很多网友都非常抓狂的事情。今天小编就教大家利用VBA代码，实现自动备份功能，使Word每隔几分钟可以自动备份，而不影响正在编辑的文件。接下来就一起来了解一下吧!

1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】;



用VBA代码设置Word自动保存的步骤

2、双击刚才插入的【模块1】，添加如下代码：

Sub 自动备份()

Dim NewTime

NewTime = Now + TimeValue(“00:05:10”)

Dim myPath$， myName$

myPath = ActiveDocument.Path

myName = Left$(ActiveDocument.Name， Len(ActiveDocument.Name) - 4)

ChangeFileOpenDirectory myPath

ActiveDocument.SaveAs FileName：=myName & “_temp.doc”， ReadOnlyRecommended：=True

ActiveDocument.SaveAs FileName：=myName & “.doc”， ReadOnlyRecommended：=False

Application.OnTime NewTime， “自动备份”

CreateObject(“Wscript.shell”).popup “备份成功，备份文件名为：” & myName & “_temp.doc”， 2， “提示!2秒后自动关闭!”

End Sub



用VBA代码设置Word自动保存的步骤



用VBA代码设置Word自动保存的步骤

3、双击【ThisDocument】并在其中 添加如下代码：

Private Sub Document_Open()

Call 自动备份

End Sub



用VBA代码设置Word自动保存的步骤

4、默认自动备份时间为5min，如要调整请修改【模块1】中一句代码：如图中红框所示：

时间格式为：HH ： mm ： ss



用VBA代码设置Word自动保存的步骤

5、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》 【启用此内容】，如图：



用VBA代码设置Word自动保存的步骤

6、默认备份文件名为：【原文件名_temp，Lee.doc】且为只读，提示对话框2s后自动关闭。备份效果显示如下：

用VBA代码设置Word自动保存的步骤

赞 (0)

相关推荐

  • 在Word2003中设置Word自动保存时间

    当Word2003因意外操作而强行关闭时，“自动恢复”功能可能尚未将更改保存到恢复文件中。恢复文件中包含的新信息数量取决于Word保存恢复文件的频率。例如，如果每15分钟自动保存一次恢复文件，那么在发 ...

  • 怎样设置word自动保存的时间间隔

    现在使用Word 2010和Excel 2010的人越来越多,但其中的使用方法和诀窍需要在实践中慢慢体会和总结,有时一项很简单.快捷的操作却能给办公人员带来工作效率极大的提升,下面的方法就是教你怎样设 ...

  • 怎么设置word自动保存

    每次使用Word2003录资料或者制作文稿时,我都会有个很好的习惯,就是将文档保存一次,然后继续工作.这样做的目的就是为了减少文档的丢失率,避免电脑突然崩溃或突然死机造成文档丢失的情况发生.以前就吃过 ...

  • 如何设置word自动保存的时间间隔

    本介绍如何设置word的自动保存时间间隔. 操作方法 01 有时候我们好不容易编辑的文档会因为电脑死机,软件崩溃什么的导致文档未保存,编辑的功夫全废了,这时候我们可以设置word的自动保存间隔时间,把 ...

  • 怎样设置word自动保存时间

    若在编辑 Word 文档时,遇到突然断电或出现其他特殊情况,那么就有可能丢失没有及时保存的数据.利用"自动保存"功能,可以让数据丢失的可能性减少到最低.更改自动保存时间的间隔操作如 ...

  • 怎么设置word2016自动保存文档防止丢失（附改变文件存储位置的方法）

    怎么设置word2016自动保存文档防止丢失（附改变文件存储位置的方法）

    在我们编辑word文档时,突然断电.死机或故障会导致我们的文件内容丢失,我们可以在word2016中设置自动保存文档以防丢失,下面一起来看看吧.具体如下:1. 打开word后,点击左上角的[文件]按钮 ...

  • word怎么设置后台自动保存呢?

    word怎么允许后台保存,我们用word的时候,已经设置自动保存了,那我们已经设置好了,他怎么不自动保存呢,其实我们需要开启允许后台自动保存的设置,那我们怎么设置呢,下面为大家详细介绍一下,来看看吧! ...

  • 如何开启并设置Word自动恢复保存功能

    如何开启并设置Word自动恢复保存功能

    Word是现在十分常用的办公软件之一,有些用户为了防止文件丢失,想知道如何开启并设置自动恢复保存功能,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的Word软件,接 ...

  • 怎么将Word自动保存格式设置为网页

    怎么将Word自动保存格式设置为网页

    Word是现在十分常用的一款办公软件,有些新用户不知道怎么将Word自动保存格式设置为网页,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的Word软件.2. 第二步根 ...