[求助]请问如何才能让子窗体数据输出WORD？

wu8313

把如下代码 写在按钮"生成word"的click事件中：

  DoCmd.SelectObject acForm, "你的子窗体名称", True

    DoCmd.RunCommand acCmdOutputToRTF

站长的方法很好，好像可以预先设置word中格式，然后按照事先预定的文本格式导出，可是我不会做。我的方法只是实现了简单的office链接，导出后的文件自动保存在“我的文档”

抄段帮助给你：

Microsoft Access 支持动态数据交换 (DDE) 作为一个目标（客户）应用程序或源（服务器）应用程序。例如，一个作为客户的应用程序，如 Microsoft Word，可以通过 DDE，从一个作为服务器的 Microsoft Access 数据库来请求数据。

以下示例将演示，如何将 Microsoft Access 用作为一个 DDE 服务器，以使用 Visual Basic 来创建 Microsoft Word 过程。（必须正在运行 Microsoft Access ，才能使该示例工作。）

1. Sub AccessDDE()
   
   
2.     Dim intChan1 As Integer, intChan2 As Integer
   
   
3.     Dim strQueryData As String
   
   
4. 
   
   
5.     ' 使用“系统”主题，打开“罗斯文”示例数据库。
   
   
6.     ' 必须在使用其他 DDE 主题之前已打开数据库。
   
   
7.     intChan1 = DDEInitiate("MSAccess", "System")
   
   
8.     ' 可能需要将此路径更改为“罗斯文”
   
   
9.     ' 示例数据库的路径。
   
   
10.     DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]"
    
    
11. 
    
    
12.     ' 从“十种最贵的产品”查询中获得所有数据。
    
    
13.     intChan2 = DDEInitiate("MSAccess", "Northwind.mdb;" _
    
    
14.         & "QUERY Ten Most Expensive Products")
    
    
15.     strQueryData = DDERequest(intChan2, "All")
    
    
16.     DDETerminate intChan2
    
    
17. 
    
    
18.     ' 关闭数据库。
    
    
19.     DDEExecute intChan1, "[CloseDatabase]"
    
    
20.     DDETerminate intChan1
    
    
21. 
    
    
22.     ' 将检索的数据印打印到“调试”窗口。
    
    
23.     Debug.Print strQueryData
    
    
24. End Sub

复制代码

[此贴子已经被作者于2004-8-2 9:51:18编辑过]

wu8313

使用同样的方法，你也可以导出数据到excel中。用不着复制和粘贴。

DoCmd.SelectObject acForm, "你的子窗体名称", True  

DoCmd.RunCommand acCmdOutputToExcel

可是这仅仅只是实现和word和excel的链接和简单的发布，并不能按照事先预定的文格式导出。我觉得应该把word中的编程代码也写进来，比如设置页边距等等。请大家顶一顶。可惜我不会，有了结果就通知大家。使用这种方法生成报表，也是一种方法。再说报表的设计有些烦人，当然并不能取代报表。

当然，也可以导出为html格式。

[此贴子已经被作者于2004-8-2 17:59:20编辑过]

wu8313

<DIV class=quote>以下是引用xulanghui在2004-6-6 10:10:05的发言：

wu8313

以下是引用xulanghui在2004-6-6 10:10:05的发言：





请问如何才能让子窗体的数据也写入WORD文件（红色部份），并在结尾写入“以下空白”。

如果能超过15行能自动分页自动写入就最好了。

还有子窗体的序号能让它自动产生吗？

高手们，麻烦你们了。

wu8313

不知道如何做？可我老是在想，子窗体的纪录数不确定，word的文字型域你打算如何确定它的个数。实在不行，就用报表