Application.DDETerminateAll (Word)

Fecha todos os canais de intercâmbio dinâmico de dados DDE abertos pelo Microsoft Word.

Este método não fecha canais abertos para o Word por aplicativos clientes. Usar este método é o mesmo que usar o DDETerminate para cada canal aberto. Quando você interrompe uma macro que abre um canal DDE, sem querer pode deixar um canal aberto. Os canais abertos não são fechados automaticamente quando uma macro é concluída, e cada canal aberto usa recursos do sistema. Por isso, convém usar esse método ao depurar uma macro que abre um ou mais canais 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