Application.DDETerminateAll (Word)

Schließt alle DDE-Kanäle (Dynamic Data Exchange), die von Microsoft Word geöffnet wurden.

Diese Methode schließt keine Kanäle, die für Word durch Clientanwendungen geöffnet wurden. Beim Unterbrechen eines Makros, das einen DDE-Kanal öffnet, kann es passieren, dass versehentlich ein Kanal geöffnet bleibt.

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