注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Word文档另存为新文件备份(另存后文件名不变)  

2010-04-07 18:33:16|  分类: Office |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

本文链接:http://oicu.cc.blog.163.com/blog/static/12303947120103763316863/

目的:另存后文件名不变,不打开另存的新文件。

发信人: mens (穿梭啊穿梭), 信区: OfficeSoft
标  题: 请教,这样的保存宏怎么编?(有实际用处)
发信站: 水木社区 (Mon Apr  5 21:57:25 2010), 站内

一篇文档(1.doc),运行宏后,该文档在一制定文件夹中备份一次(2.doc),但当前文档
编辑的仍然是原文档(1.doc)

显然,如果用“另存为”的话,当前文档会改成2.doc ,不符合希望的要求。


发信人: oicu (Oh! I see you!), 信区: OfficeSoft
标  题: Re: 请教,这样的保存宏怎么编?(有实际用处)
发信站: 水木社区 (Tue Apr  6 16:11:44 2010), 站内

有个类似的功能:
选项-高级-保存-始终创建备份副本,保存后自动生成备份副本,但是这样
得到的备份文档是保存前的状态。

可以这样写个宏:save一次,加个空格或者其他字符再删除,再save一次。

我基本不用word,懒得去想其他方法,save一下,FileCopy也可以的吧。


发信人: iam0 (R~~O~~O~~O~~~M~~~), 信区: OfficeSoft
标  题: Re: 请教,这样的保存宏怎么编?(有实际用处)
发信站: 水木社区 (Tue Apr  6 17:47:29 2010), 站内

save as 2次,第一次2.doc,第二次1.doc


有些编辑工具带有“备份”的功能,就是生成备份文档而不打开,目前看来Word只能用宏来解决。

下面两个宏都是在同目录下另存新文件,文件名为原文件名后加上“ - Backup”,根据情况更
改 BackupFileName 的值。

这个是 Save As 两次的宏:

Option Explicit
' by oicu
Sub FileBackup()

    Dim FileName, BaseName, ExtensionName, BackupFileName, sFullName

    FileName = ActiveDocument.Name
    sFullName = ActiveDocument.FullName
    BaseName = Left(FileName, InStrRev(FileName, ".") - 1)
    ExtensionName = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
    BackupFileName = ActiveDocument.Path & "\" & BaseName & " - Backup." & ExtensionName

    ActiveDocument.SaveAs2 FileName:=BackupFileName
    ActiveDocument.SaveAs2 FileName:=sFullName

End Sub


这个是FileCopy的宏,如果是遇到大文件肯定很悲剧,因为要重新打开,加载……

Option Explicit
' by oicu
Sub FileBackup2()

    Dim FileName, BaseName, ExtensionName, BackupFileName, sFullName

    FileName = ActiveDocument.Name
    sFullName = ActiveDocument.FullName
    BaseName = Left(FileName, InStrRev(FileName, ".") - 1)
    ExtensionName = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
    BackupFileName = ActiveDocument.Path & "\" & BaseName & " - Backup." & ExtensionName

    ActiveDocument.Save
    ActiveDocument.Close
    FileCopy sFullName, BackupFileName
    Documents.Open FileName:=sFullName

End Sub

 

宏要保存在Normal.dot或者Normal.dotm的ThisDocument里,
快捷键就自己随便设置了,代替原来的Ctrl+S也可以的:

Office2003-工具-自定义-命令-键盘,
类别-宏-FileBackup-按新快捷键Ctrl+S-指定-关闭,
指定后,会自动取消默认保存(文件-FileSave)的Ctrl+S快捷键,
设置保存在Normal.dot里。

Office2010-文件-选项-自定义快速访问工具栏-不在功能区中的
命令-自定义键盘,添加到快速访问栏后打开自定义键盘设置,
类别-宏-FileBackup-按新快捷键Ctrl+S-指定-关闭,
指定后,会自动取消默认保存(文件选项卡-FileSave)的Ctrl+S快捷键,
设置保存在Normal.dotm里。

 

  评论这张
 
阅读(1853)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017