不卡AV在线|网页在线观看无码高清|亚洲国产亚洲国产|国产伦精品一区二区三区免费视频

學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>word排版教程>Word常見(jiàn)問(wèn)題>

Word中用VBA代碼設(shè)置自動(dòng)保存的操作方法

時(shí)間: 曉生931 分享

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

  Word中用VBA代碼設(shè)置自動(dòng)保存的操作步驟:

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

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

  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

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

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

  Private Sub Document_Open()

  Call 自動(dòng)備份

  End Sub

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

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

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

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

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

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

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

  用VBA代碼設(shè)置Word自動(dòng)保存的步驟

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

1.怎么在word2007中使用VBA

2.Exce2010中編輯vba代碼進(jìn)行使用的操作方法

3.word2013中怎樣設(shè)置代碼高亮

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

5.Excel中保護(hù)vba代碼不被查看和修改的設(shè)置方法

6.Excel2007中進(jìn)行代碼編輯器窗口的操作方法

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

2251754