Accessは、ダイナミック データ エクスチェンジ（DDE）機能をサポートします。
例えば、AccessにデータベースのレコードをDDEを通じて、Wordのドキュメントや
Excelのワークシートに挿入することができます。

　下のサンプルでは、AccessをDDEサーバーとして使うWordのプロシージャを、
VBAで作成しています。この例を実行するには、Access が実行されている必要
があります。

● サンプル　●

Sub AccessDDE()

    Dim intChan1 As Long, intChan2 As Long
    Dim strQueryData As String

    'System トピックを使って、ノースウィンド データベースを開きます。
　　'ほかのDDEトピックを使う前に、データベースを開く必要があります。
    intChan1 = DDEInitiate("MSAccess", "System")
    'ノースウィンド データベースの実際の位置を示すには、次のパスの変更が
　　'必要な場合があります。
    DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]"

    '[四半期売上高] クエリのすべてのデータを取得します。
    intChan2 = DDEInitiate("MSAccess", "Northwind.mdb;" _
        & "QUERY 四半期売上高")
    strQueryData = DDERequest(intChan2, "All")
    DDETerminate intChan2

    'データベースを閉じます。
    DDEExecute intChan1, "[CloseDatabase]"
    DDETerminate intChan1

    '取得したデータをデバッグ ウィンドウに表示します。
    Debug.Print strQueryData
    
End Sub