欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Word 2007怎么利用VBA代碼設(shè)置自動(dòng)另存?zhèn)浞菸募?/h1>
  發(fā)布時(shí)間：2015-05-21 16:32:40   作者：佚名   我要評(píng)論
Word 2007怎么利用VBA代碼設(shè)置自動(dòng)另存?zhèn)浞菸募吭赪ord的編輯過程中,Word雖然有自帶的自動(dòng)保存功能，但在工作中常遇到Word突然崩潰或損壞，使文件無法打開，但是我們可以用vba備份，下面分享教程

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

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

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

復(fù)制內(nèi)容到剪貼板
  1. Sub 自動(dòng)備份()                                                                                                                          
  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, "自動(dòng)備份"  
  20.   
  21. CreateObject("Wscript.shell").popup "備份成功，備份文件名為：" & myName & "_temp.doc", 2, "提示！2秒后自動(dòng)關(guān)閉!"                                                                                                                        
  22.   
  23. End Sub                        

                                                                                                           

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

復(fù)制內(nèi)容到剪貼板
  1. Private Sub Document_Open()   
  2.   
  3. Call 自動(dòng)備份   
  4.   
  5. End Sub   
  6.   

                                                                                                                                   

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

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

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

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

相關(guān)文章

最新評(píng)論