次の方法で共有

Application.DDETerminateAll メソッド (Word)

  • [アーティクル]

Microsoft Word で開いた DDE (動的データ交換) チャネルをすべて閉じます。

構文

expression. DDETerminateAll

expressionApplicationオブジェクトを表す変数 。 オプション。

注釈

ただし、クライアント アプリケーションから Word に対して開いたチャネルは閉じられません。 このメソッドの操作は、開いているチャネルそれぞれに対して DDETerminate メソッドを使用する操作と同じです。

DDE チャネルを開くマクロを中断した場合、チャネルが開いたままになる可能性があります。 マクロの実行を終了しても、開いたチャネルは自動的に閉じられることがないため、無駄なシステム リソースを使い続ける結果になります。 このため、DDE チャネルを開くマクロをデバッグするときは、このメソッドを使用することをお勧めします。

例

この例は、book1.xls ブックの Excel ブックを開きます、R2C3 のセルにテキストを挿入化しがブックを保存し、すべての 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

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。