[求助]請問如何才能讓子窗體數(shù)據(jù)輸出WORD？

xulanghui

請問如何才能讓子窗體的數(shù)據(jù)也寫入WORD文件（紅色部份），并在結尾寫入“以下空白”。

如果能超過15行能自動分頁自動寫入就最好了。

還有子窗體的序號能讓它自動產生嗎？

高手們，麻煩你們了。

tmtony

子窗體的序號可以子窗體beforeinsert事件中使用Dmax或Dlast取得子窗體數(shù)據(jù)表（符合條件）的最大序號加1賦給當前序事情如果要以Word更多的控制，可以創(chuàng)建Word.Application對象，然后對這個對象來控件格式，也可使用DDE

xulanghui

站長：你說的好像很復雜哎�？晌也粫�編程，你說的“ 如果要以Word更多的控制，可以創(chuàng)建Word.Application對象，然后對這個對象來控件格式，也可使用DDE”好沒有什么書籍可參照啊！能介紹這方面的書嗎？[em06]

tmtony

看看Warmheart網(wǎng)友的一貼，看看能否有幫助，附帶有程序。http://www.mzhfr.cn/forum.php?mod=viewthread&tid=14098

xulanghui

站長，我看過了，跟輸出至WORD或EXCEL無關啊，都沒有輸出。

佳佳

子窗體數(shù)據(jù)輸出WORD??有人幫忙解決嗎

佳佳

頂一下，有人解決嗎

wu8313

把如下代碼 寫在按鈕"生成word"的click事件中：

  DoCmd.SelectObject acForm, "你的子窗體名稱", True

    DoCmd.RunCommand acCmdOutputToRTF

站長的方法很好，好像可以預先設置word中格式，然后按照事先預定的文本格式導出，可是我不會做。我的方法只是實現(xiàn)了簡單的office鏈接，導出后的文件自動保存在“我的文檔”

抄段幫助給你：

Microsoft Access 支持動態(tài)數(shù)據(jù)交換 (DDE) 作為一個目標（客戶）應用程序或源（服務器）應用程序。例如，一個作為客戶的應用程序，如 Microsoft Word，可以通過 DDE，從一個作為服務器的 Microsoft Access 數(shù)據(jù)庫來請求數(shù)據(jù)。

以下示例將演示，如何將 Microsoft Access 用作為一個 DDE 服務器，以使用 Visual Basic 來創(chuàng)建 Microsoft Word 過程。（必須正在運行 Microsoft Access ，才能使該示例工作。）

1. Sub AccessDDE()
   
   
2.     Dim intChan1 As Integer, intChan2 As Integer
   
   
3.     Dim strQueryData As String
   
   
4. 
   
   
5.     ' 使用“系統(tǒng)”主題，打開“羅斯文”示例數(shù)據(jù)庫。
   
   
6.     ' 必須在使用其他 DDE 主題之前已打開數(shù)據(jù)庫。
   
   
7.     intChan1 = DDEInitiate("MSAccess", "System")
   
   
8.     ' 可能需要將此路徑更改為“羅斯文”
   
   
9.     ' 示例數(shù)據(jù)庫的路徑。
   
   
10.     DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]"
    
    
11. 
    
    
12.     ' 從“十種最貴的產品”查詢中獲得所有數(shù)據(jù)。
    
    
13.     intChan2 = DDEInitiate("MSAccess", "Northwind.mdb;" _
    
    
14.         & "QUERY Ten Most Expensive Products")
    
    
15.     strQueryData = DDERequest(intChan2, "All")
    
    
16.     DDETerminate intChan2
    
    
17. 
    
    
18.     ' 關閉數(shù)據(jù)庫。
    
    
19.     DDEExecute intChan1, "[CloseDatabase]"
    
    
20.     DDETerminate intChan1
    
    
21. 
    
    
22.     ' 將檢索的數(shù)據(jù)印打印到“調試”窗口。
    
    
23.     Debug.Print strQueryData
    
    
24. End Sub

復制代碼

[此貼子已經(jīng)被作者于2004-8-2 9:51:18編輯過]

xulanghui

8樓的，謝謝你。

你說的方法只能讓子窗體生成WORD文件，如果能讓輸出的WORD只有當前子窗體顯示的內容的話，好也好過我每次輸出EXCEL再復制到WORD。

另還有個問題，在復制EXCEL單元格至WORD時，第一次粘貼右鍵上只有“粘貼”一項，先粘貼再撤消后再次看右鍵就多了“粘貼單元格及粘貼為嵌套表格”，可我要用的就是“粘貼單元格”，請問要怎樣就能一次過找到“粘貼單元格”呢？

[此貼子已經(jīng)被作者于2004-8-2 16:38:13編輯過]

wu8313

使用同樣的方法，你也可以導出數(shù)據(jù)到excel中。用不著復制和粘貼。

DoCmd.SelectObject acForm, "你的子窗體名稱", True  

DoCmd.RunCommand acCmdOutputToExcel

可是這僅僅只是實現(xiàn)和word和excel的鏈接和簡單的發(fā)布，并不能按照事先預定的文格式導出。我覺得應該把word中的編程代碼也寫進來，比如設置頁邊距等等。請大家頂一頂�？上�我不會，有了結果就通知大家。使用這種方法生成報表，也是一種方法。再說報表的設計有些煩人，當然并不能取代報表。

當然，也可以導出為html格式。

[此貼子已經(jīng)被作者于2004-8-2 17:59:20編輯過]