在Word中，有时由于意外情况如断电或系统故障，可能导致未保存的工作丢失，这让人非常困扰。为了解决这个问题，我们可以利用Visual Basic for Applications (VBA)编写代码，设置Word自动保存功能，每隔一段时间自动备份当前文档。以下是如何通过VBA来实现这一功能的详细步骤：
1. 你需要打开Word文档的VBA编辑器。你可以通过按下快捷键`Alt+F11`来快速进入。
2. 在VBA编辑器中，右键点击左侧的【ThisDocument】，然后选择【插入模块】。这将创建一个新的模块，你可以在其中编写代码。
3. 在新插入的【模块1】中，粘贴以下代码：
```vba
Sub 自动备份()
Dim NewTime
NewTime = Now + TimeValue("00:05:10") '默认设置为5分钟后自动保存
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
```
这段代码定义了一个名为`自动备份`的子程序，它会将当前文档保存为一个临时文件（例如：原文件名_temp.doc），并且在5分钟后再次运行此子程序。
4. 接下来，回到【ThisDocument】，双击它并在其中添加以下代码：
```vba
Private Sub Document_Open()
Call 自动备份
End Sub
```
这样，每次打开文档时，都会自动调用`自动备份`子程序。
5. 如果你想更改自动保存的时间间隔，只需修改【模块1】中的`TimeValue("00:05:10")`，根据需要调整时间格式（例如：`"00:10:00"`表示10分钟后保存）。
6. 保存VBA代码和Word文档，然后关闭并重新打开Word。首次打开时，你可能需要在【选项】>【启用此内容】中确认启用VBA宏。
7. 设置完成后，Word将按照设定的间隔自动保存备份文件，备份文件的名称为原始文件名加"_temp"后缀，并且是只读的。在保存后，会有一个弹出窗口提示备份成功，并在2秒后自动关闭。
通过以上步骤，你可以确保即使遇到突发状况，也能避免失去工作进度，因为Word会定期自动备份。这种方法特别适合处理大型文档或长时间编辑的情况，提供了额外的安全保障。
VIP享7折，此内容立减4.47元 
