主题：关闭word后执行代码

现用代码打开一个word文档，想实现在关闭该文档后，执行一段代码，如何实现。我写的是这样，虽然可以实现，但是要通过对话框，还有其他方法吗？

代码A

此时文档为打开状态

Catch ex As Exception
    Dim Result As DialogResult
    Result = MessageBox.Show("执行代码B?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        代码B

    Else
        Return
    End If
End Try

我的目的是想对打开的word进行修改，保存修改后将该文档上传到ftp。

所以我想在关闭该word文档后，再执行后面的上传代码。