设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2824|回复: 3

如何在Access中用代码控制Word 的文本框(急)

[复制链接]
发表于 2004-6-1 07:45:00 | 显示全部楼层 |阅读模式
如何在Access中用代码控制Word 的文本框(急)?

如要将Access中备注字段的内容输入Word文档中的第一个文本框,该怎样写代码?VBA中哪个是文本框对象?
发表于 2004-7-2 02:47:00 | 显示全部楼层
    Access可以控制Word中的文本型窗体域:

[此贴子已经被作者于2004-7-1 18:47:41编辑过]

 楼主| 发表于 2004-7-18 19:22:00 | 显示全部楼层
师兄,我是想用代码控制
发表于 2004-7-18 22:12:00 | 显示全部楼层
一定是高错了,我记得这个帖子不是回复你的,是有人问窗体域是怎样实现的?你可以试试看下面的方法:先设置好word模板,在需要获得access数据的地方插入“文本型窗体域”!在导出按钮的单击事件中写入:Private Sub 导出至Word_Click()

Set n = CreateObject("word.application")

n.Visible = True

n.Documents.Open FileName:="路径" & "\word模板名称.doc"

n.Documents("word模板名称.doc").FormFields(1).Result = Me![文本框1]

n.Documents("word模板名称.doc").FormFields(2).Result = Me![文本框2]

n.Documents("word模板名称.doc").FormFields(3).Result = Me![文本框3]

End Sub



单击后自动打开word模板名称.doc,对应的文本框内容会依次填入窗体域!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-28 21:08 , Processed in 0.084966 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表