推薦系統(tǒng)下載分類： 最新Windows10系統(tǒng)下載 最新Windows7系統(tǒng)下載 xp系統(tǒng)下載 電腦公司W(wǎng)indows7 64位裝機萬能版下載
用VBA代碼設(shè)置Word自動保存的步驟
發(fā)布時間:2022-02-22 文章來源:xp下載站 瀏覽:
|
軟件是一系列按照特定順序組織的計算機數(shù)據(jù)和指令的集合。一般來講軟件被劃分為編程語言、系統(tǒng)軟件、應(yīng)用軟件和介于這兩者之間的中間件。硬件是“計算機硬件”的簡稱。與“軟件”相對,電子計算機系統(tǒng)中所有實體部件和設(shè)備的統(tǒng)稱。 有時候，在使用Word進行文字編輯的時候，突然遇到斷電，或者電腦自動關(guān)機、死機等故障的時候，導(dǎo)致辛辛苦苦做出來的勞動成果全部泡湯，是很多網(wǎng)友都非常抓狂的事情。今天小編就教大家利用VBA代碼，實現(xiàn)自動備份功能，使Word每隔幾分鐘可以自動備份，而不影響正在編輯的文件。接下來就一起來了解一下吧！ 1、打開Word文件的 VBA編輯器，快捷鍵 Alt+F11，右擊【ThisDocument】-》 【插入模塊】；
用VBA代碼設(shè)置Word自動保存的步驟 2、雙擊剛才插入的【模塊1】，添加如下代碼： Sub 自動備份（） 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， “自動備份” CreateObject（“Wscript.shell”）.popup “備份成功，備份文件名為：” & myName & “_temp.doc”， 2， “提示！2秒后自動關(guān)閉！” End Sub
用VBA代碼設(shè)置Word自動保存的步驟
用VBA代碼設(shè)置Word自動保存的步驟 硬件是實在的，有模有樣的。軟件是程序性的。是一系列的指令。有了軟件，硬件才會實現(xiàn)更豐富的功能。 |
