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
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.