亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學習啦>學習電腦>工具軟件>辦公軟件學習>word排版教程>Word常見問題>

      Word中用VBA代碼設置自動保存的操作方法

      時間: 曉生931 分享

        有時候,在使用Word進行文字編輯的時候,突然遇到斷電,或者電腦自動關(guān)機、死機等故障的時候,導致辛辛苦苦做出來的勞動成果全部泡湯,是很多網(wǎng)友都非常抓狂的事情。如何利用VBA代碼,實現(xiàn)自動備份功能,使Word每隔幾分鐘可以自動備份,而不影響正在編輯的文件。今天,學習啦小編就教大家在Word中用VBA代碼設置自動保存的操作方法。

        Word中用VBA代碼設置自動保存的操作步驟:

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

        用VBA代碼設置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代碼設置Word自動保存的步驟

        用VBA代碼設置Word自動保存的步驟

        3、雙擊【ThisDocument】并在其中 添加如下代碼:

        Private Sub Document_Open()

        Call 自動備份

        End Sub

        用VBA代碼設置Word自動保存的步驟

        4、默認自動備份時間為5min,如要調(diào)整請修改【模塊1】中一句代碼:如圖中紅框所示:

        時間格式為:HH : mm : ss

        用VBA代碼設置Word自動保存的步驟

        5、保存代碼及文件,且關(guān)閉word并重新打開,重新打開點擊【選項】-》 【啟用此內(nèi)容】,如圖:

        用VBA代碼設置Word自動保存的步驟

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

        用VBA代碼設置Word自動保存的步驟

      Word中用VBA代碼設置自動保存的操作相關(guān)文章:

      1.怎么在word2007中使用VBA

      2.Exce2010中編輯vba代碼進行使用的操作方法

      3.word2013中怎樣設置代碼高亮

      4.excel2007 vba中如何加按鈕的方法

      5.Excel中保護vba代碼不被查看和修改的設置方法

      6.Excel2007中進行代碼編輯器窗口的操作方法

      7.Excel2007中創(chuàng)建并使用VBA代碼的操作

      2251754