Office中國(guó)論壇/Access中國(guó)論壇

標(biāo)題: 如何在Access中用代碼控制Word 的文本框（急） [打印本頁(yè)]

作者: 菜加加 時(shí)間: 2004-6-1 07:45
標(biāo)題: 如何在Access中用代碼控制Word 的文本框（急）
如何在Access中用代碼控制Word 的文本框（急）？

如要將Access中備注字段的內(nèi)容輸入Word文檔中的第一個(gè)文本框，該怎樣寫(xiě)代碼？VBA中哪個(gè)是文本框?qū)ο螅?hr noshade size="2" width="100%" color="#808080"> 作者: wanshan 時(shí)間: 2004-7-2 02:47
Access可以控制Word中的文本型窗體域：

[此貼子已經(jīng)被作者于2004-7-1 18:47:41編輯過(guò)]

作者: 菜加加 時(shí)間: 2004-7-18 19:22
師兄，我是想用代碼控制

作者: wanshan 時(shí)間: 2004-7-18 22:12
一定是高錯(cuò)了，我記得這個(gè)帖子不是回復(fù)你的，是有人問(wèn)窗體域是怎樣實(shí)現(xiàn)的？你可以試試看下面的方法：先設(shè)置好word模板，在需要獲得access數(shù)據(jù)的地方插入“文本型窗體域”！在導(dǎo)出按鈕的單擊事件中寫(xiě)入：Private Sub 導(dǎo)出至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

單擊后自動(dòng)打開(kāi)word模板名稱.doc，對(duì)應(yīng)的文本框內(nèi)容會(huì)依次填入窗體域！

歡迎光臨 Office中國(guó)論壇/Access中國(guó)論壇 (http://www.mzhfr.cn/)