为当前文件创建副本

办公族

陈 · 2005年12月12日

一般情况下，只要选择“文件→另存为”，就可以建立一个和当前文件一样的新文件，不过另存之前如果忘记先保存很可能会丢失对源文件的修改，而且源文件还得重新打开才能看到。因此，我们可以自己动手做一个创建副本的按钮，单击这按钮后可以在不关闭源文件的前提下新建源文件的副本，还会自动保存源文件。

点击“工具→宏→宏…”，输入宏名“创建副本”，单击创建按钮，编辑以下宏代码：

Sub 创建副本()

On Error GoTo 报警

ActiveDocument.Save

Documents.Add Template:=ActiveDocument.Name

End

报警: Call MsgBox（“请先保存文件”, vbOKOnly, “操作错误”）

End Sub

其中第2行是保存当前文件，如果当前文件是未保存的新建文件，则会弹出窗口要求命名并保存，第3行才是以当前文件为模板新建文件。如果当前文件未保存，则新建时会出错，所以前面用On Error判断，当出错时会跳到倒数第二行的“报警”，弹出一个“操作错误”的对话框要求先保存文件。

然后右键点击工具栏选择“自定义”，在“命令”选项卡的“类别”中选中“宏”，从命令列表中把“Normal.NewMacros.创建副本”拖动到工具栏上，接着设定一个比较简单的命名就行了（见图）。以后只要单击这个按钮即可得到一个当前文件的副本。