以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关闭word后执行代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130204)
--  作者：qaz17909
--  发布时间：2019/1/15 20:45:00
--  关闭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
--  作者：有点蓝
--  发布时间：2019/1/15 21:27:00
--  
把对话框的代码去掉不就行了

可以使用ShowAppWindow判断文档状态：http://www.foxtable.com/webhelp/scr/2713.htm

强制关闭文档：
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("WINWORD" = p.ProcessName)
        p.kill
    End If
Next
--  作者：qaz17909
--  发布时间：2019/1/15 21:39:00
--  

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

所以我想在关闭该word文档后，再执行后面的上传代码。
--  作者：有点蓝
--  发布时间：2019/1/15 21:59:00
--  
没有直接的方法可以知道文件关闭然后触发事件的

可用文件监视器：http://www.foxtable.com/webhelp/scr/1963.htm