如何用VBA程式碼設定Word自動儲存

全書吧 office辦公 2.47W

如何用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 =

myName = Left$(， Len() - 4)

ChangeFileOpenDirectory myPath

As FileName：=myName & “_”， ReadOnlyRecommended：=True

As FileName：=myName & “”， ReadOnlyRecommended：=False

me NewTime， “自動備份”

CreateObject(“l”)p “備份成功，備份檔名為：” & myName & “_”， 2， “提示!2秒後自動關閉!”

End Sub

用VBA程式碼設定Word自動儲存的`步驟

用VBA程式碼設定Word自動儲存的步驟

3、雙擊【ThisDocument】並在其中新增如下程式碼：

Private Sub Document_Open()

Call 自動備份

End Sub

用VBA程式碼設定Word自動儲存的步驟

4、預設自動備份時間為5min，如要調整請修改【模組1】中一句程式碼：如圖中紅框所示：

時間格式為：HH ： mm ： ss

用VBA程式碼設定Word自動儲存的步驟

5、儲存程式碼及檔案，且關閉word並重新開啟，重新開啟點選【選項】-》【啟用此內容】，如圖：

用VBA程式碼設定Word自動儲存的步驟

6、預設備份檔名為：【原檔名_temp，】且為只讀，提示對話方塊2s後自動關閉。備份效果顯示如下：

TAG標籤：VBA Word 程式碼自動儲存 #

office辦公