如何用VBA完成自动图文的插入?（已加附件）

yangzh · 发表于 2007-1-19 11:40

如何用VBA完成以下功能

在当前编辑文档插入同目录下"测试.dot"模板中的自动图文集中的"样本01"?

[此贴子已经被作者于2007-1-19 13:20:32编辑过]

yangzh · 发表于 2007-1-19 13:20

通过录制宏写下以下代码

在录制过程中都正常，但录制完成后运行却不正常，不知如何改。

euHiIHKp.rar (9.75 KB, 下载次数: 8)

hao123 · 发表于 2007-1-19 19:49

得确是个怪事,好象楼主加载了同目录下的测试模板（用的是绝对地址），这个题很难吗?

守柔 · 发表于 2007-1-20 06:20

楼主对于模板的作用，认识还是不够。

请以你的模板新建一个文档，然后另存为“主文件.Doc"，把以下代码粘贴于模块中。

Sub 插入自动图文()
ActiveDocument.AttachedTemplate.AutoTextEntries("样本01").Insert Where:=Selection.Range, RichText:=True
End Sub
把此宏自定义一个按钮即可.

[此贴子已经被作者于2007-1-20 6:20:29编辑过]

		自动登录	找回密码
密码			免费注册

给个附件,请看看