Office中国论坛/Access中国论坛

标题: 如何在Access中用代码控制Word 的文本框（急） [打印本页]

作者: 菜加加 时间: 2004-6-1 07:45
标题: 如何在Access中用代码控制Word 的文本框（急）
如何在Access中用代码控制Word 的文本框（急）？

如要将Access中备注字段的内容输入Word文档中的第一个文本框，该怎样写代码？VBA中哪个是文本框对象？

作者: wanshan 时间: 2004-7-2 02:47
Access可以控制Word中的文本型窗体域：

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

作者: 菜加加 时间: 2004-7-18 19:22
师兄，我是想用代码控制

作者: wanshan 时间: 2004-7-18 22:12
一定是高错了，我记得这个帖子不是回复你的，是有人问窗体域是怎样实现的？你可以试试看下面的方法：先设置好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，对应的文本框内容会依次填入窗体域！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)