如何用VBA代碼設置Word自動(dòng)保存

　　如何用VBA代碼設置Word自動(dòng)保存

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

　　用VBA代碼設置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代碼設置Word自動(dòng)保存的步驟

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

　　3、雙擊【ThisDocument】并在其中 添加如下代碼：

　　Private Sub Document_Open()

　　Call 自動(dòng)備份

　　End Sub

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

　　4、默認自動(dòng)備份時(shí)間為5min，如要調整請修改【模塊1】中一句代碼：如圖中紅框所示：

　　時(shí)間格式為：HH ： mm ： ss

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

　　5、保存代碼及文件，且關(guān)閉word并重新打開(kāi)，重新打開(kāi)點(diǎn)擊【選項】-》 【啟用此內容】，如圖：

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

　　6、默認備份文件名為：【原文件名_temp，Lee.doc】且為只讀，提示對話(huà)框2s后自動(dòng)關(guān)閉。備份效果顯示如下：

【如何用VBA代碼設置Word自動(dòng)保存】相關(guān)文章：

word怎么設置頁(yè)碼08-08

word設置邊框的方法11-21

word分欄怎么設置09-14

word頁(yè)眉設置頁(yè)碼09-15

word如何設置頁(yè)碼08-31

怎么設置word頁(yè)碼09-24

word怎么設置行距07-15

word行距設置方法08-02

word中如何設置頁(yè)碼09-20

word怎么設置公文頁(yè)碼10-04