Application.DDETerminateAll (Word)

Cierra todos los canales de intercambio dinámico de datos (DDE) que se abrieron con Microsoft Word.

Este método no cierra los canales abiertos en Word mediante aplicaciones cliente. Si interrumpe una macro que abre un canal DDE, puede dejarlo abierto sin darse cuenta.

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