Word 2007怎么利用VBA代碼設(shè)置自動(dòng)另存?zhèn)浞菸募?/h1>

2024-08-22 13:38:01

字體：大 中 小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

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

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

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

復(fù)制內(nèi)容到剪貼板

1. Sub 自動(dòng)備份()                                                                                                                             
2. Dim NewTime      
3. NewTime = Now + TimeValue("00:05:10")      
4. Dim myPath$, myName$        
5. myPath = ActiveDocument.Path       
6. myName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)      
7. ChangeFileOpenDirectory myPath                                                                                                                                      

上一篇：金山PDF轉(zhuǎn)WORD文檔怎么用?好不好用?

下一篇：word打開(kāi)失敗 提示缺失各種.MSI的解決辦法

發(fā)表評(píng)論 共有條評(píng)論 用戶名: 密碼: 驗(yàn)證碼: 匿名發(fā)表

學(xué)習(xí)交流

更多

• 

  練就火眼金睛 十一種常見(jiàn)電腦

• 

  打印機(jī)共享提示“操作無(wú)法完成

如何查找有故障的配件

如何查找有故障的配件...

• 綠毒越獄軟件 完美越獄4.21教程12-21
• htcg15怎么刷機(jī)？htcg15刷機(jī)教程12-21
• HTC hd7刷安卓2.2全教程12-21
• mpkg軟件下載和卸載的方法12-21

• 網(wǎng)站后臺(tái)系統(tǒng)設(shè)置的網(wǎng)站地址格式寫(xiě)法07-09
• 防止重復(fù)提交js按鈕變灰07-09
• 不同時(shí)間顯示不同的廣告代碼07-09
• iframe框架調(diào)用高度自適應(yīng)方法07-09
• 備份數(shù)據(jù)庫(kù)出現(xiàn)問(wèn)題的解決方法07-09

熱門(mén)圖片

更多

• 

  回眸一笑百魅生，六宮粉黛無(wú)顏色

• 

  歲月靜美，剪一影煙雨江南

• 

  蕪湖有個(gè)“松鼠小鎮(zhèn)”

• 

  小滿：小得盈滿，一切剛剛好！

• 

  一串串晶瑩剔透的葡萄，像一顆顆寶石掛在藤

• 

  正宗老北京脆皮烤鴨

• 

  人逢知己千杯少，喝酒搞笑圖集

• 

  搞笑試卷，學(xué)生惡搞答題

猜你喜歡的新聞

• 最牛同桌！我考了696分我同桌考了703分
• 650分！高二女生考入北大：遺憾不能上高三
• 男生估分600只考了397 媽媽：高考雖重要，但不
• 唐尚珺回應(yīng)是否會(huì)直播帶貨：有人出100萬(wàn)想和
• 名校搶人名場(chǎng)面：清華、北大太拼了！
• 男生高考語(yǔ)文滿分！網(wǎng)友：第一次聽(tīng)說(shuō)
• 第16次參加高考！唐尚珺今年成績(jī)超600分
• 語(yǔ)文145分學(xué)霸筆記公開(kāi)字跡清秀：多閱讀，該背
• 數(shù)學(xué)滿分！四川綿陽(yáng)一男生高考710分 理綜僅扣
• 阿里全球數(shù)學(xué)競(jìng)賽選手：決賽專業(yè)性太強(qiáng)，6道題

猜你喜歡的關(guān)注

• 極強(qiáng)PDF轉(zhuǎn)換器將Word文檔轉(zhuǎn)換成Excel文檔的
• 微信文章復(fù)制到word中圖片不顯示該怎么辦?
• 郵箱下載的word文檔打開(kāi)是亂碼的解決辦法
• 用Word繪制表格
• WORD排版
• word怎么自動(dòng)更新時(shí)間？word自動(dòng)更新文檔中的
• Word2013圖片顯示不全怎么辦？Word2013圖片顯
• SmallPDF文檔格式轉(zhuǎn)換工具如何使用？PDF轉(zhuǎn)換
• pdf文件如何轉(zhuǎn)word文件?迅捷PDF轉(zhuǎn)換器圖文
• word2016怎么批量保存圖片？word2016批量保存