FileBak 文件备份（宏）最新修正！

413191246se · 发表于 2021-2-6 09:23

本帖最后由 413191246se 于 2021-2-11 02:21 编辑

* 文件备份，可以直接打开另存为，但个人比较喜欢取得文件名后让 VBA 复制，这样比较原汁原味。
* 昨晚遇到文件名中含有小数点导致文件名取值错误，现已修正。请试用：

Sub FileBak()
Dim strOldName As String
Dim strExtName As String
Dim strNewName As String
With ActiveDocument
strOldName = .FullName
strExtName = Right(strOldName, Len(strOldName) - InStrRev(strOldName, "."))
strNewName = Left(strOldName, Len(strOldName) - Len(strExtName) - 1) & "_bak" & "." & strExtName
.Close SaveChanges:=wdDoNotSaveChanges
End With
FileCopy strOldName, strNewName
End Sub

复制代码

batmanbbs · 发表于 2024-6-17 19:23

se老师，复制文档不用打开文档吧，就算打开文档，用FSO也可以复制，和原文档并无半点变化啊。
PS：当前文档如果是新建未保存文档，代码应该会出错。

zds0616 · 发表于 2024-7-4 09:02

可以一键自动留档

		自动登录	找回密码
密码			免费注册

[分享] FileBak 文件备份（宏）最新修正！