用VBA代码设置Word自动保存的步骤
发布时间:2023-12-06 15:10:03
有时候,在使用Word进行文字编辑的时候,突然遇到断电,或者电脑自动关机、死机等故障的时候,导致辛辛苦苦做出来的劳动成果全部泡汤,是很多网友都非常抓狂的事情。今天小编就教大家利用VBA代码,实现自动备份功能,使Word每隔几分钟可以自动备份,而不影响正在编辑的文件。接下来就一起来了解一下吧!
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秒后自动关闭!”
End Sub
用VBA代码设置Word自动保存的步骤
用VBA代码设置Word自动保存的步骤
3、双击【ThisDocument】并在其中 添加如下代码:
Private Sub Document_Open()
Call 自动备份
End Sub
用VBA代码设置Word自动保存的步骤
4、默认自动备份时间为5min,如要调整请修改【模块1】中一句代码:如图中红框所示:
时间格式为:HH : mm : ss
用VBA代码设置Word自动保存的步骤
5、保存代码及文件,且关闭word并重新打开,重新打开点击【选项】-》 【启用此内容】,如图:
用VBA代码设置Word自动保存的步骤
6、默认备份文件名为:【原文件名_temp,Lee.doc】且为只读,提示对话框2s后自动关闭。备份效果显示如下:
用VBA代码设置Word自动保存的步骤
猜你喜欢
- 这是由于Word的格式未设置好而引起的。设置方法如下:1.在Word的工具栏中,点击【格式】;2.在下拉菜单中点击【段落】,进入【缩进和间距
- Word 2010怎么更改汉字拼音呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Word 2010怎么更改汉字拼音的回答,希望能够对
- win10系统是一个非常有用的优秀系统,各种智能设置可以最大限度地减少用户使用系统的烦恼!但最近,许多朋友回应说,他们在桌面上找不到鼠标箭头
- Acrobat 9 Pro怎么发pdf文件?Acrobat 9 Pro想要将pdf文件发给别人,该怎么发送pdf文件呢?下面我们就来看看详细
- 码字精灵是专为码字而制作的软件,一个码字过程中方便记录情节、人物等设定的平台,那你知道如何在码字精灵里添加任务吗?本篇文章详细介绍了如何在码
- 如果不喜欢win10主题颜色,想修改Windows10系统主题颜色,应该如何设置?接下来小编就跟你分享Windows10如何设置窗口标题颜色
- 1、打开word软件,新建一个空白文档。 2、输入标题文字,按下crl+B加粗字体 &
- Acrobat编辑器怎么去除PDF签名?pdf文件中想要删除签名,该怎么删除呢?下面我们就来看看Acrobat除去pdf签名的教程,很简单,
- win10系统是最主流的计算机使用系统。用户可以使用win10系统进行大量的工作或娱乐。强大的性能也使win10系统成为计算机系统中最主流的
- 许多小白的电脑使用时间长就会出现C盘空间越来越少,大家都知道电脑在使用过程中,会生成各式各样的临时文件,而这些临时文件基本上都是可以删的,如
- win10蓝牙搜索不到设备是有可能发生的,因为本地蓝牙服务没有进行驱动更新导致的,多数用户在遇到这个问题并没有办法自己处理,那么win10蓝
- win10系统内置了很多从win7系统延续过来的附件以及小工具,比如应用商店、放大镜、计算器、截屏等。如果用户删除了这些,内置应用会失效,那
- 今天我要在我的电脑上添加集群的IP与域名的对应关系,然后修改C:\Windows\System32\drivers\etc下的hosts文件
- win10有些功能模块是不能随便关闭的,就像windows资源管理器一旦关闭电脑会黑屏,这样也不方便我们再次打开用来管理后台进程。至于要怎么
- 这篇文章主要为大家介绍了微软更新OfficeMix门户网站、以及PPT加入新功能,为了让用户使用Office更加得心应手,将Mix的分析导出
- Win10安全模式是一个非常强大的功能,功能非常丰富。它可以为用户维护和修理自己的电脑。基本问题可以通过进入安全模式来解决。你需要的时候请尽
- 在使用金山WPS表格整理数据的过程中,不少网友都会遇到复制大量数据到表格的时候,表格显示会变卡,而且当再次打开含有大量数据的金山WPS表格的
- win10 1803是在2018年4月30日更新推送的Win10重大版本更新。距离现在已有两年的时间,那么小编为什么要说它呢?其实这个版本上
- 在今年 3 月,苹果官方正式对外宣布,将在 6 月 8 日到 12 日召开 2021 年年度苹果全球开发者大会(WWDC21),仍然采用线上
- wps演示文稿是可以设置背景的,但如果想要设置成自己想要背景该怎么操作呢?wps演示文稿如何设置背景?看了下面的教程你就知道了。1、首先我们