VB6.0 将数据库数据传给Word,将数据库内容发送给Word,在Word中打开Access中的数据内容: '创建word应用程序,这一句话打开word2000 Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加一个表格 Set atable = .ActiveDocument.Tables.Add(.Selection.Range,