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

菜加加

如何在Access中用代码控制Word 的文本框（急）？

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

wanshan

    Access可以控制Word中的文本型窗体域：

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

菜加加

师兄，我是想用代码控制

wanshan

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