実行しているアプリケーションを取得する

以下の例は実行しているアプリケーションを取得確認し、終了させるもの。
みそはワードオブジェクトで実現できるものです。

まずはwordを立ち上げています。

Sub Application Close()
    Dim WD
    Set WD = CreateObject("Word.Application")
    If WD.Tasks.Exists("Microsoft Access") Then
        WD.Tasks("Microsoft Access").Close
    End If
    WD.Quit
    Set WD = Nothing
End Sub