使用VBA代码设置Word自动保存的步骤
有时候,在使用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自动保存的步骤
本文由 帝一博客 原创发布。用户在本站发布的原创内容(包括但不仅限于回答、文章和评论),著作权均归用户本人所有。独家文章转载,请联系邮箱:17762131@qq.com。获得授权后,须注明本文地址: https://bubukou.com/ziyuanfenxiang/430.html
-
绘画PPT时怎么说话? PPT刷使用教程分享
2019-07-30 04:20
-
Excel拆分单元格图形步骤
2019-07-29 04:40
-
如何与微博分享金山wps ppt
2019-07-27 04:20
-
如何仅关闭多个word文档的当前窗口
2019-07-22 04:40
-
金山WPS表格是一种简单的方法,用于校对出生日期是否与身份证...
2019-07-16 04:00
-
禁止WPS热点新闻自动弹出设置方法
2019-07-14 04:20
-
每次打开office2007时,系统都会提示您安装配置解决方...
2019-07-02 04:40
-
金山WPS文本教程:快速为每一行添加空白行
2019-07-02 04:00
-
如何批量删除Word中的图像
2019-07-01 04:40
-
使用金山wps将文本格式化为带框架的垂直排列
2019-06-30 04:40
网友留言评论