使用word, excel, powerpoint 或者iWork时，mac 自动生成带时间后缀的备份文件

Question

比如我在做PPT（用其他office软件或者iWork系统现象也一样），会一边做一边保存，做一段时间之后，就会发现同目录下面多了一个和我在编辑的文件名字很像的文件，文件名是我在编辑的文件的名字加上一个很像时间戳的后缀，如附件所示。

谢谢各位！

Answer 1

Sub AA()
文件名 = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
后缀名 = Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - InStr(ActiveWorkbook.Name, ".") + 1)
a = ActiveWorkbook.Name
On Error Resume Next '错误继续
Application.DisplayAlerts = False '禁止弹出保存替换提示消息
MkDir "D:\" & "备份" '建文件夹 ThisWorkbook.Path
b = "D:\" & "备份\" & 文件名 & Now() & 后缀名
ActiveWorkbook.SaveCopyAs a & b
End Sub