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

菜加加

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

如要將Access中備注字段的內容輸入Word文檔中的第一個文本框，該怎樣寫代碼？VBA中哪個是文本框對象？

wanshan

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

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

菜加加

師兄，我是想用代碼控制

wanshan

一定是高錯了，我記得這個帖子不是回復你的，是有人問窗體域是怎樣實現(xiàn)的？你可以試試看下面的方法：先設置好word模板，在需要獲得access數(shù)據(jù)的地方插入“文本型窗體域”！在導出按鈕的單擊事件中寫入：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，對應的文本框內容會依次填入窗體域！