有時(shí)候，在使用Word進(jìn)行文字編輯的時(shí)候，突然遇到斷電，或者電腦自動(dòng)關(guān)機(jī)、死機(jī)等故障的時(shí)候，導(dǎo)致辛辛苦苦做出來(lái)的勞動(dòng)成果全部泡湯，是很多網(wǎng)友都非常抓狂的事情。今天小編就教大家利用VBA代碼，實(shí)現(xiàn)自動(dòng)備份功能，使Word每隔幾分鐘可以自動(dòng)備份，而不影響正在編輯的文件。接下來(lái)就一起來(lái)了解一下吧！

　　1、打開(kāi)Word文件的 VBA編輯器，快捷鍵 Alt+F11，右擊【ThisDocument】-》 【插入模塊】；

　　用VBA代碼設(shè)置Word自動(dòng)保存的步驟

　　2、雙擊剛才插入的【模塊1】，添加如下代碼：

　　Sub 自動(dòng)備份（）

　　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， “自動(dòng)備份”

　　CreateObject（“Wscript.shell”）.popup “備份成功，備份文件名為：” & myName & “_temp.doc”， 2， “提示！2秒后自動(dòng)關(guān)閉！”

　　End Sub

　　用VBA代碼設(shè)置Word自動(dòng)保存的步驟

　　用VBA代碼設(shè)置Word自動(dòng)保存的步驟