Método Global.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 objeto 'Global'. Opcional.
Comentários
Este método não fecha canais abertos para o Word por aplicativos do cliente. Usar esse método é o mesmo que usar o método 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 Office Excel Book1.xls, insere texto na célula L2C3, 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.