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

413191246se

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

1. Sub FileBak()
   
2.     Dim strOldName As String
   
3.     Dim strExtName As String
   
4.     Dim strNewName As String
   
5.     With ActiveDocument
   
6.         strOldName = .FullName
   
7.         strExtName = Right(strOldName, Len(strOldName) - InStrRev(strOldName, "."))
   
8.         strNewName = Left(strOldName, Len(strOldName) - Len(strExtName) - 1) & "_bak" & "." & strExtName
   
9.         .Close SaveChanges:=wdDoNotSaveChanges
   
10.     End With
    
11.     FileCopy strOldName, strNewName
    
12. End Sub

复制代码

batmanbbs

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

zds0616

可以一键自动留档