哪里可以找到用vba把数据库中的表的字段信息自动导入中word的相关东东！

gougou

哪里可以找到用vba把数据库中的表的字段信息自动导入word中的相关东东！相关的学习资料也可以了，hehe ，斑竹是你介绍我来的，可要多多关照哦！！：）

gougou

哦，今天要睡觉了，上来看看，有没有人回复了，没想到斑竹亲自上阵啊，感激不尽，我回去试验试验，呵呵vb都忘的差不多了，记得上学的时候学过一些，以后一直也没有用，趁这个机会复习复习，斑竹啊，你能给我找些学习vba操作word的资料吗，哦我去ftp上看看，或许那里回有好多把！！谢了，see you ！

惊叹不已

在工具菜单引用ADO后,就可以在Word中象在VB中一样使用ADO了,下例示范了将一个表的字段名写到Word中一个表格的第1行. Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Sub GetInformation() conn.Open "provider=microsoft.jet.oledb.4.0;data source=e:\test.mdb" rs.Open "select * from t1", conn, adOpenKeyset, adLockOptimistic, adCmdText For i = 0 To rs.Fields.Count - 1 ActiveDocument.Tables(1).Cell(1, i + 1).Range.InsertAfter rs.Fields(i).Name Next End Sub