Word中用VBA代碼設(shè)置自動(dòng)保存的操作方法
有時(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)備份，而不影響正在編輯的文件。今天，學(xué)習(xí)啦小編就教大家在Word中用VBA代碼設(shè)置自動(dòng)保存的操作方法。
Word中用VBA代碼設(shè)置自動(dòng)保存的操作步驟：
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)保存的步驟
3、雙擊【ThisDocument】并在其中 添加如下代碼：
Private Sub Document_Open()
Call 自動(dòng)備份
End Sub
用VBA代碼設(shè)置Word自動(dòng)保存的步驟
4、默認(rèn)自動(dòng)備份時(shí)間為5min，如要調(diào)整請(qǐng)修改【模塊1】中一句代碼：如圖中紅框所示：
時(shí)間格式為：HH ： mm ： ss
用VBA代碼設(shè)置Word自動(dòng)保存的步驟
5、保存代碼及文件，且關(guān)閉word并重新打開(kāi)，重新打開(kāi)點(diǎn)擊【選項(xiàng)】-》 【啟用此內(nèi)容】，如圖：
用VBA代碼設(shè)置Word自動(dòng)保存的步驟
6、默認(rèn)備份文件名為：【原文件名_temp，Lee.doc】且為只讀，提示對(duì)話框2s后自動(dòng)關(guān)閉。備份效果顯示如下：
用VBA代碼設(shè)置Word自動(dòng)保存的步驟
Word中用VBA代碼設(shè)置自動(dòng)保存的操作相關(guān)文章：
2.Exce2010中編輯vba代碼進(jìn)行使用的操作方法
5.Excel中保護(hù)vba代碼不被查看和修改的設(shè)置方法