Application.DDETerminateAll (Word)

Ferme tous les canaux d'échange dynamique de données (DDE) ouverts par Microsoft Word.

Cette méthode ne ferme pas les canaux ouverts dans Word par des applications clientes. Si vous interrompez une macro ouvrant un canal DDE, il est possible que vous laissiez un canal ouvert par inadvertance.

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