共用方式為

使用 Microsoft Word 的 DAO

使用資料存取物件 (DAO) 屬性、物件和方法的方式，與您參考和使用 Word 屬性、物件和方法的方式相同。 建立 DAO 物件程式庫的參照之後，您就可以開啟資料庫、設計並執行查詢以便擷取資料錄集，以及將結果帶回 Word。

參照 DAO

您必須先建立 DAO 物件程式庫的參照，然後才能使用 DAO。 請使用下列步驟來建立 DAO 物件程式庫的參照。

  1. 切換至 Visual Basic 編輯器。

  2. 按一下 [工具] 功能表中的 [參照]。

  3. 在 [可用的參考] 方塊中，選取 [Microsoft DAO 3.6 Object Library]。

下列範例會開啟 Northwind 資料庫，並將 Shippers 資料表中的項目插入使用中文件。

Sub UsingDAOWithWord() 
 Dim docNew As Document 
 Dim dbNorthwind As DAO.Database 
 Dim rdShippers As Recordset 
 Dim intRecords As Integer 
 
 Set docNew = Documents.Add 
 Set dbNorthwind = OpenDatabase _ 
 (Name:="C:\Program Files\Microsoft Office\Office11\" _ 
 & "Samples\Northwind.mdb") 
 Set rdShippers = dbNorthwind.OpenRecordset(Name:="Shippers") 
 For intRecords = 0 To rdShippers.RecordCount - 1 
 docNew.Content.InsertAfter Text:=rdShippers.Fields(1).Value 
 rdShippers.MoveNext 
 docNew.Content.InsertParagraphAfter 
 Next intRecords 
 rdShippers.Close 
 dbNorthwind.Close 
End Sub

您可以使用 OpenDatabase 方法來連接至資料庫並加以開啟。 開啟資料庫之後，請使用 OpenRecordset 方法來存取資料表或查詢結果。 若要在資料錄集中瀏覽，請使用 Move 方法。 若要尋找特定資料錄，請使用 Seek 方法。 如果您只需要資料錄的子集合而非整個資料錄集，請使用 CreateQueryDef 方法來設計自訂查詢，以便選取符合準則的資料錄。 資料庫使用完畢後，建議您使用 Close 方法來關閉資料庫，以便節省記憶體。

註解

如需特定 DAO 物件、方法或屬性的詳細資訊，請參閱 MSDN 上與 Data Access Objects 有關的資訊。

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。