用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自动保存的步骤

硬件是实在的，有模有样的。软件是程序性的。是一系列的指令。有了软件，硬件才会实现更丰富的功能。