Método Application.DDETerminateAll (Word)

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

Sintaxe

expression. DDETerminateAll

expressão Uma variável que representa um Aplicativo objeto. Opcional.

Comentários

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.

Exemplo

Este exemplo abre a pasta de trabalho do Microsoft Excel Book1. xls, insere texto na célula R2C3, salva a pasta de trabalho e finaliza todos os 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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.