如何用VBA代碼設置Word自動保存
如何用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後自動關閉。備份效果顯示如下:
-
Word設置文檔頁面的方法
通常在文檔編輯之前我們需要對壓面進行適當的'設置來保證達到我們的要求,那麼怎麼來設置頁面呢?下面YJBYS小編就給大家詳細介紹一下吧!1、預定義紙張,【頁面佈局】-【紙張大小】-【本身就定義好的紙張】(如A4、A3等)。2、自定義紙張,【頁面佈局】-【紙張大小】-...
-
做ppt心得體會(通用8篇)
當我們受到啟發,對生活有了新的感悟時,就很有必要寫一篇心得體會,如此可以一直更新迭代自己的想法。很多人都十分頭疼怎麼寫一篇精彩的心得體會,下面是小編收集整理的做ppt心得體會,希望能夠幫助到大家。做ppt心得體會篇1我們以前也自己做過ppt,不過用的圖片少,而且基...
-
學習word心得體會
當在某些事情上我們有很深的體會時,應該馬上記錄下來,寫一篇心得體會,這樣能夠培養人思考的習慣。那麼寫心得體會要注意的內容有什麼呢?下面是小編為大家整理的學習word心得體會,歡迎閲讀與收藏。學習word心得體會1計算機實訓在不知不覺中就結束了,我感覺自己還有好...
-
如何在excel表格中簡單添加超鏈接
在我們使用Excel表格的過程中,有時候需要為表格內的內容添加網站地址的超鏈接,以方便引入相關的'內容,這個時候,我們就需要使用到添加超鏈接的知識了。那麼,怎麼在Excel表格內添加超鏈接呢?一起來看看今天的Excel表格添加超鏈接教程,希望本教程可以幫到您!首先選中...