Question

VBA中如何实现VBA程序的自我复制，或宏的自动导出和导入功能？

可能是我没说清楚。我的意思是：宏在执行时，自动将自己导出成一个文件，并把这个文件导入到没有宏的其他office文件中。

Answer 1

我说个两个办法吧，
一是通过vb编辑器导出导入，叙述如下
1. 宏本身是word文档中的一些vb语句，需要在vb编辑器里面创建和编辑。
你也许是用录制的方法生成宏，实际上是通过录制的方法自动生成了宏的vb语句。
2. 在vb编辑器里可以对你创建的宏语句进行编辑：
winword -> 工具 -> 宏 -> vb编缉器 -> 出现vb编辑器
-> 工程窗口(可通过视图->工程窗口调出)
-> normal(一般情况下你的宏位于normal文档中)
-> 模板
-> NewMacros
3. 在此你可导出/导入你的宏到/从文件
当然你也可以把宏语句作为文本复制到别处（如文本文档中）保存，
带到别人的电脑上再把这些语句复制回来。

二是通过word文档携带，如下所述
1. 宏是位于word文档中的一些vb语句，那么问题就是它位于哪个word文档中
一般而言，你录制的宏位于normal.dot文件中，normal.dot的位置由这里知道：
运行winword -> 工具 -> 选项 -> 文件位置 -> 用户模版
2. 你复制你自己电脑上的normal.dot文件（你的宏就位于它里面）携带到别人电脑上，
通过两种方法导入到别人的winword中
i. 在winword程序关闭的情况下，用你的normal.dot替换别人的normal.dot
建议事先备份别人的normal.dot，事后恢复
这是我推荐的方法，只涉及文件复制替换，而不会改变别人的normal
ii. 通过winword 的管理器，方法是
运行winword -> 工具 -> 宏 -> 宏.. -> 管理器 -> 出现管理器对话框
-> 选择宏方案项卡片
在卡片左边默认显示为当前word文档，点击"关闭文档"，再点击"打开文档"，
将你的normal.dot打开在左边；
在卡片右边默认显示为别人的normal.dot，如果不是它的话，将它打开在右边。
然后选择左边的NewMacro，按复制按钮，复制到右边（右边的NewMacro被替换）。
关闭对话框。
来自网络

Answer 2

貌似不太行，一个宏执行时，相当于这个宏的文件已经打开，怎么能再次打开呢？