* 将选取的内容拷贝到剪贴板

　　=DDEExecute(Channel,”[EditCopy]”)

　　* 将剪贴板上的内容存储到变量Letter中

　　Letter=_CLIPTEXT

　　* 退出Word

　　=DDEExecute(Channel,”[FileExit]”)

　　* 结束DDE会话

　　=DDETerminate(Channel)

　　ENDIF

　　* 显示剪贴板中的内容

　　?Letter

　　----以下是一个利用DDE与Excel进行数据交换的示例程序。该程序从一个电子表格文件test.xls请求数据，利用DDEAdvise()函数建立了与电子表格中两个单元R2C3和R2C4之间的数据连接关系。当这两个单元中任一数据发生改动时，执行用户自定义函数 refresh进行处理。

　　* 启动应用程序Excel

　　RUN /N1 D:/EXCEL/EXCEL.EXE

　　* 建立DDE连接

　　Channel=DDEInitiate(“Excel”,”test”)

　　* 判断连接是否已经建立

　　IF Channel<>-1

　　* 与单元R2C3建立温连接

　　=DDEAdvise(Channel,’R2C3’,refresh,1)

　　* 与单元R2C4建立热连接

　　=DDEAdvise(Channel,’R2C4’,refresh,1)

　　* 其它处理函数

　　ENDIF

　　* 定义函数refresh

　　PROCEDURE refresh

　　PARAMETERS channel,action,item,data,advise

　　DO CASE

　　CASE item=’R2C3’.and.advise=1

　　* 此处插入关于R2C3数据变化的处理程序

　　CASE item=’R2C4’.and.advise=2

　　* 此处插入关于R2C4数据变化的处理程序

　　ENDCASE

　　* 结束DDE会话

　　=DDETerminate(Channel)