国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Word > 正文

Word 2007怎么利用VBA代碼設置自動另存備份文件？

2019-12-13 13:23:42
字體：大 中 小
來源：轉載
供稿：網友

在Word的編輯過程中,Word雖然有自帶的自動保存功能，但在工作中常遇到Word突然崩潰或損壞，使文件無法打開，之前的工作付之一炬，如沒有備份文件只能從頭開始。 利用VBA代碼，實現自動備份功能，不需要認為的操作，使Word每隔幾分鐘可以自動備份，而不影響正在編輯的文件。

1、打開Word文件的 VBA編輯器，快捷鍵 Alt+F11，右擊【ThisDocument】-> 【插入模塊】

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

復制內容到剪貼板
  1. Sub 自動備份()                                                                                                                          
  2.   
  3. Dim NewTime   
  4.   
  5. NewTime = Now + TimeValue("00:05:10")   
  6.   
  7. Dim myPath$, myName$     
  8.   
  9. myPath = ActiveDocument.Path    
  10.   
  11. myName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)   
  12.   
  13. ChangeFileOpenDirectory myPath                                                                                                                                   
  14.   
  15. ActiveDocument.SaveAs FileName:=myName & "_temp.doc", ReadOnlyRecommended:=True   
  16.   
  17. ActiveDocument.SaveAs FileName:=myName & ".doc", ReadOnlyRecommended:=False                                                                                                                                   
  18.   
  19. Application.OnTime NewTime, "自動備份"  
  20.   
  21. CreateObject("Wscript.shell").popup "備份成功，備份文件名為：" & myName & "_temp.doc", 2, "提示！2秒后自動關閉!"                                                                                                                        
  22.   
  23. End Sub                        

                                                                                                           

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

復制內容到剪貼板
  1. Private Sub Document_Open()   
  2.   
  3. Call 自動備份   
  4.   
  5. End Sub   
  6.   

                                                                                                                                   

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

時間格式為：HH : mm : ss

5、保存代碼及文件，且關閉word并重新打開，重新打開點擊【選項】-> 【啟用此內容】，如圖：

6、默認備份文件名為：【原文件名_temp,Lee.doc】且為只讀，提示對話框2s后自動關閉。備份效果顯示如下：

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 平邑县| 福清市| 体育| 开江县| 台江县| 汝南县| 溧阳市| 贡嘎县| 寿光市| 分宜县| 鹿泉市| 勃利县| 伊春市| 普宁市| 深圳市| 兰坪| 华池县| 随州市| 芜湖县| 扎兰屯市| 莱芜市| 定远县| 班玛县| 惠来县| 靖边县| 万年县| 大关县| 右玉县| 威信县| 泾源县| 金秀| 新建县| 兰考县| 柳林县| 江源县| 棋牌| 阿城市| 灌阳县| 明光市| 手机| 五指山市|