亚洲国产日韩欧美在线a乱码,国产精品路线1路线2路线,亚洲视频一区,精品国产自,www狠狠,国产情侣激情在线视频免费看,亚洲成年网站在线观看

如何用VBA代碼設(shè)置Word自動(dòng)保存

時(shí)間:2024-09-29 05:12:47 office辦公 我要投稿
  • 相關(guān)推薦

如何用VBA代碼設(shè)置Word自動(dòng)保存

  如何用VBA代碼設(shè)置Word自動(dòng)保存

  1、打開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并重新打開,重新打開點(diǎn)擊【選項(xiàng)】-》 【啟用此內(nèi)容】,如圖:

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

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

【如何用VBA代碼設(shè)置Word自動(dòng)保存】相關(guān)文章:

word怎么設(shè)置頁碼08-08

word設(shè)置邊框的方法11-21

word分欄怎么設(shè)置09-14

word頁眉設(shè)置頁碼09-15

word如何設(shè)置頁碼08-31

怎么設(shè)置word頁碼09-24

word怎么設(shè)置行距07-15

word行距設(shè)置方法08-02

word中如何設(shè)置頁碼09-20

word怎么設(shè)置公文頁碼10-04