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)浞菸募?？在Word的編輯過程中,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)容到剪貼板
- Sub 自動(dòng)備份()
-
- Dim NewTime
-
- NewTime = Now + TimeValue("00:05:10")
-
- Dim myPath$, myName$
-
- myPath = ActiveDocument.Path
-
- myName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
-
- ChangeFileOpenDirectory myPath
-
- ActiveDocument.SaveAs FileName:=myName & "_temp.doc", ReadOnlyRecommended:=True
-
- ActiveDocument.SaveAs FileName:=myName & ".doc", ReadOnlyRecommended:=False
-
- Application.OnTime NewTime, "自動(dòng)備份"
-
- CreateObject("Wscript.shell").popup "備份成功，備份文件名為：" & myName & "_temp.doc", 2, "提示！2秒后自動(dòng)關(guān)閉!"
-
- End Sub
3、雙擊【ThisDocument】并在其中 添加如下代碼，如圖所示：
復(fù)制內(nèi)容到剪貼板
- Private Sub Document_Open()
-
- Call 自動(dòng)備份
-
- End Sub
-
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)文章
Word如何快速對(duì)齊ABCD選項(xiàng)? word試卷批量對(duì)齊ABCD的技巧
在平時(shí)使用word排版過程中，有時(shí)候我們遇到abcd選擇題選項(xiàng)上下不對(duì)齊怎么辦，非常亂，但是我們又需要對(duì)齊的效果，我們應(yīng)該怎么辦呢？ 2025-12-05 怎樣把豎著的ABCD調(diào)整為橫一排? word選擇題abcd調(diào)整為一行顯示的技巧
選擇題abcd是豎著排列的，很占空間，想要橫排排列，該怎么操作呢？下面我們就來看看詳細(xì)教程 2025-12-05 自動(dòng)更正功能快速提高工作效率! word巧妙利用自動(dòng)更正功能快速錄入長文
在Word中輸入內(nèi)容時(shí)，你是否曾為頻繁輸入公司名字等長文本而煩惱？但有了Word的文本自動(dòng)更正功能，這一切變得簡單起來,你只需輸入“萬達(dá)”等簡短詞匯，系統(tǒng)便能自動(dòng)為你補(bǔ) 2025-11-01 deepseek復(fù)制粘貼亂碼咋辦? word粘貼出現(xiàn)很多Markdown格式標(biāo)記符號(hào)解決
你有沒有遇到過，用 DeepSeek 生成的文字，復(fù)制后粘貼，總會(huì)出現(xiàn)一堆奇怪的符號(hào)，比如“*#-”，還得一個(gè)一個(gè)刪，特別麻煩，下面我們就來看看解決辦法 2025-08-19 論文交叉引用多個(gè)文獻(xiàn)怎么辦? word交叉引用多篇連續(xù)文獻(xiàn)的技巧
通過word文檔連續(xù)交叉引用多個(gè)參考文獻(xiàn)，具體分為引用連續(xù)文獻(xiàn)和不連續(xù)文獻(xiàn)兩種情況，該怎么操作呢？下面我們就來看看詳細(xì)教程 2025-06-28 word怎么單獨(dú)導(dǎo)出一頁? word導(dǎo)出部分頁的技巧
在編輯Word文檔時(shí)，有時(shí)我們只需要導(dǎo)出其中的部分頁面，而不是整個(gè)文檔，下面將介紹如何在Word中導(dǎo)出部分頁面 2025-04-14 問卷星怎么轉(zhuǎn)換成word文檔? 問卷星問卷調(diào)查導(dǎo)出成word的技巧
在日常工作中，我們經(jīng)常需要將問卷星上的問卷內(nèi)容導(dǎo)出為Word格式，以便整理和分析數(shù)據(jù)，以下是三種簡單的操作方法 2025-04-14 word文檔一整頁怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁截屏下來，可以通過使用鍵盤中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖，詳細(xì)如下 2025-04-14 word開發(fā)工具怎么調(diào)出來? word工具欄添加開發(fā)工具的教程
許多用戶在使用Word時(shí)，可能會(huì)發(fā)現(xiàn)菜單欄中缺少了“開發(fā)者工具”這一重要選項(xiàng)，這無疑限制了Word的某些高級(jí)功能應(yīng)用，詳細(xì)請(qǐng)看下文介紹 2025-04-14 Word文本框中的數(shù)字和英文字母如何進(jìn)行豎排? word文檔排版技巧
用Word進(jìn)行排版成為我們辦公中的主要方式，偶爾我們也可能會(huì)讓文字豎著排版，讓文字豎著排版我們都知道怎么操作，但是如何讓英文字母和數(shù)字也縱向顯示呢？詳細(xì)請(qǐng)看下文介紹 2025-03-25
最新評(píng)論
我要評(píng)論在Word的編輯過程中,Word雖然有自帶的自動(dòng)保存功能，但在工作中常遇到Word突然崩潰或損壞，使文件無法打開，之前的工作付之一炬，如沒有備份文件只能從頭開始。 利用VBA代碼，實(shí)現(xiàn)自動(dòng)備份功能，不需要認(rèn)為的操作，使Word每隔幾分鐘可以自動(dòng)備份，而不影響正在編輯的文件。
1、打開Word文件的 VBA編輯器，快捷鍵 Alt+F11，右擊【ThisDocument】-> 【插入模塊】
2、雙擊剛才插入的【模塊1】，添加如下代碼，如圖所示：
- Sub 自動(dòng)備份()
- Dim NewTime
- NewTime = Now + TimeValue("00:05:10")
- Dim myPath$, myName$
- myPath = ActiveDocument.Path
- myName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
- ChangeFileOpenDirectory myPath
- ActiveDocument.SaveAs FileName:=myName & "_temp.doc", ReadOnlyRecommended:=True
- ActiveDocument.SaveAs FileName:=myName & ".doc", ReadOnlyRecommended:=False
- Application.OnTime NewTime, "自動(dòng)備份"
- CreateObject("Wscript.shell").popup "備份成功，備份文件名為：" & myName & "_temp.doc", 2, "提示！2秒后自動(dòng)關(guān)閉!"
- End Sub
3、雙擊【ThisDocument】并在其中 添加如下代碼，如圖所示：
- Private Sub Document_Open()
- Call 自動(dòng)備份
- End Sub
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)文章
Word如何快速對(duì)齊ABCD選項(xiàng)? word試卷批量對(duì)齊ABCD的技巧
在平時(shí)使用word排版過程中，有時(shí)候我們遇到abcd選擇題選項(xiàng)上下不對(duì)齊怎么辦，非常亂，但是我們又需要對(duì)齊的效果，我們應(yīng)該怎么辦呢？2025-12-05怎樣把豎著的ABCD調(diào)整為橫一排? word選擇題abcd調(diào)整為一行顯示的技巧
選擇題abcd是豎著排列的，很占空間，想要橫排排列，該怎么操作呢？下面我們就來看看詳細(xì)教程2025-12-05自動(dòng)更正功能快速提高工作效率! word巧妙利用自動(dòng)更正功能快速錄入長文
在Word中輸入內(nèi)容時(shí)，你是否曾為頻繁輸入公司名字等長文本而煩惱？但有了Word的文本自動(dòng)更正功能，這一切變得簡單起來,你只需輸入“萬達(dá)”等簡短詞匯，系統(tǒng)便能自動(dòng)為你補(bǔ)2025-11-01deepseek復(fù)制粘貼亂碼咋辦? word粘貼出現(xiàn)很多Markdown格式標(biāo)記符號(hào)解決
你有沒有遇到過，用 DeepSeek 生成的文字，復(fù)制后粘貼，總會(huì)出現(xiàn)一堆奇怪的符號(hào)，比如“*#-”，還得一個(gè)一個(gè)刪，特別麻煩，下面我們就來看看解決辦法2025-08-19論文交叉引用多個(gè)文獻(xiàn)怎么辦? word交叉引用多篇連續(xù)文獻(xiàn)的技巧
通過word文檔連續(xù)交叉引用多個(gè)參考文獻(xiàn)，具體分為引用連續(xù)文獻(xiàn)和不連續(xù)文獻(xiàn)兩種情況，該怎么操作呢？下面我們就來看看詳細(xì)教程2025-06-28word怎么單獨(dú)導(dǎo)出一頁? word導(dǎo)出部分頁的技巧
在編輯Word文檔時(shí)，有時(shí)我們只需要導(dǎo)出其中的部分頁面，而不是整個(gè)文檔，下面將介紹如何在Word中導(dǎo)出部分頁面2025-04-14問卷星怎么轉(zhuǎn)換成word文檔? 問卷星問卷調(diào)查導(dǎo)出成word的技巧
在日常工作中，我們經(jīng)常需要將問卷星上的問卷內(nèi)容導(dǎo)出為Word格式，以便整理和分析數(shù)據(jù)，以下是三種簡單的操作方法2025-04-14word文檔一整頁怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁截屏下來，可以通過使用鍵盤中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖，詳細(xì)如下2025-04-14word開發(fā)工具怎么調(diào)出來? word工具欄添加開發(fā)工具的教程
許多用戶在使用Word時(shí)，可能會(huì)發(fā)現(xiàn)菜單欄中缺少了“開發(fā)者工具”這一重要選項(xiàng)，這無疑限制了Word的某些高級(jí)功能應(yīng)用，詳細(xì)請(qǐng)看下文介紹2025-04-14Word文本框中的數(shù)字和英文字母如何進(jìn)行豎排? word文檔排版技巧
用Word進(jìn)行排版成為我們辦公中的主要方式，偶爾我們也可能會(huì)讓文字豎著排版，讓文字豎著排版我們都知道怎么操作，但是如何讓英文字母和數(shù)字也縱向顯示呢？詳細(xì)請(qǐng)看下文介紹2025-03-25
