win7系統(tǒng)下載
當(dāng)前位置: 首頁 > 硬件軟件教程 > 詳細頁面

用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自動保存的步驟

  用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自動保存的步驟

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

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


硬件是實在的,有模有樣的。軟件是程序性的。是一系列的指令。有了軟件,硬件才會實現(xiàn)更豐富的功能。

當(dāng)前原文鏈接:http://m.91mp3.cn/soft/soft-28388.html
主站蜘蛛池模板: 色综合久久久久网| 精品无码综合一区| 亚洲第一综合天堂另类专| 国产综合在线观看| 国产精品天干天干综合网| 久久综合给合久久狠狠狠97色| 亚洲 综合 国产 欧洲 丝袜 | 久久久久综合中文字幕| 日韩人妻无码一区二区三区综合部| 久久综合久久综合九色| 亚洲国产综合91精品麻豆| 亚洲综合伊人久久大杳蕉| 久久久亚洲裙底偷窥综合| 欧美综合在线观看| 久久91精品综合国产首页| 亚洲一本综合久久| 国产欧美日韩综合精品一区二区三区 | 久久综合久久性久99毛片| 狠狠狠色丁香婷婷综合久久五月| 天天综合久久一二三区| 五月综合激情网| 狠狠色丁香婷婷综合激情| 国产精品天干天干在线综合| 99久久婷婷国产综合精品草原| 亚洲图片综合区| 国产91色综合久久免费分享| 欧美日韩综合一区在线观看| 久久狠狠爱亚洲综合影院| 婷婷亚洲综合五月天小说| 色婷婷六月亚洲综合香蕉| 婷婷五月综合缴情在线视频| 狠狠色丁香久久婷婷综合图片| 欧美亚洲综合激情在线| 欧美综合在线观看| 99久久综合国产精品二区| 狠狠狠色丁香婷婷综合久久五月| 亚洲欧美伊人久久综合一区二区| 色8激情欧美成人久久综合电| 色成年激情久久综合| 天堂久久天堂AV色综合| 国产精品综合色区在线观看|