通过

Application.DDETerminateAll 方法 (Word)

  • 项目

关闭所有由 Microsoft Word 打开的动态数据交换 (DDE) 通道。

语法

expression。 DDETerminateAll

expression：表示 Application 对象的变量。 可选。

备注

此方法不关闭由客户端应用程序打开的到 Word 的通道。 使用此方法与对每一个打开的通道使用 DDETerminate 方法等效。

如果中断打开 DDE 通道的宏，可能会无意中使一个通道处于打开状态。 宏结束时打开的通道不会自行关闭，并且每一个打开的通道都会占用系统资源。 因此，在调试打开一个或多个 DDE 通道的宏时，最好使用此方法关闭 DDE 通道。

示例

本示例打开 Microsoft Excel 工作簿 Book1.xls，R2C3 单元格中插入文字、 保存该工作簿，然后终止所有的 DDE 通道。

Dim lngChannel As Long 
 
lngChannel = DDEInitiate(App:="Excel", Topic:="System") 
DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) & _ 
 "C:\Documents\Book1.xls" & Chr(34) & ")]" 
DDETerminate Channel:=lngChannel 
lngChannel = DDEInitiate(App:="Excel", Topic:="Book1.xls") 
DDEPoke Channel:=lngChannel, Item:="R2C3", Data:="Hello World" 
DDEExecute Channel:=lngChannel, Command:="[Save]" 
DDETerminateAll

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。