如何用VBA实现 对文件的操作及断开链结 功能 守柔版请进～

ggdd319

上次请教的文书自动生成问题，在您和几位朋友的帮助下已基本搞定

我是把基本资料做为一个DOC文档，然后其它要生成的若干种文书用先制作好，需要更新的地方用粘贴链结生成，最后用VBA打开，更新链结后，并按照各自的格式设置文书、保存文书。

其实现在已经基本上实现了我的设想，现在的问题是收尾的一些工作：

1 由于我的生成文书是有粘贴链结的，我看到可以在 编辑-链结的文档对象-链结-断开链结 中，设置为新文档和原文件的链结断开，我用录制宏的方法无法录制下来断开链结的语句（我的操作都是键盘完成的），请指教

2 我想把我生成的若干中新文书，复制后移动到另一个新建的文件夹中

比如：我现在的文书在 C：\我的文档\ 1\ 目录下，我想把几种文书中该目录中拷贝并粘贴到 C：\我的文档\ 1\ 目录下，请问如何用VBA实现

谢谢：）

守柔

第一个问题,断开链接的实质是将域转化为文本,不再具有域特性,所以可以同链接源断开.相当于使用了CTRL+SHIFT+F9,代码如:Selection.Fields.Unlink(断开所选域的链接)或者:断开活动文档所有链接: ActiveDocument.Fields.Unlink 当然也可以断开指定域的链接: ActiveDocument.Fields(1).Unlink

第二个问题,其实就是SAVEAS方法,即另存为,可以有两种途径实现:一个在关闭文档时自动另存为(或者在另存为后自动关闭),另一个方法是修改WROD命令,在每次手动保存时实现.前者更适合于你的思路,请参:

Sub Sample() ActiveDocument.SaveAs "c:\Test.doc"'此处修改成你想要的路径 ActiveDocument.Close End Sub 如有问题,再交流.

ggdd319

谢谢，第二个问题今天在单位已搞定

第一个太谢谢了，以后有问题还会请教

：）