word 被打开之后，怎么关闭？

[realfishhook]

在程序中打开文件的时候由于文件路径不对，所以用word打开的时候，发生错误，然后我在程序中没办法关闭word了，但是在windows的“任务管理器中”还可以看到word的存在。
请问：
1：在发生错误的时候，怎么关闭word 阿
2：怎么实现再程序中，可以发现有word程序已经运行，并且将它关闭

[rainstormmaster]

用错误陷阱,类似下面：

Dim wordapp As New Word.Application

Private Sub Command1_Click()
On Error GoTo myerr
你的代码
myerr:
wordapp.Quit
Set wordapp = Nothing
End Sub

[rainstormmaster]

//怎么实现再程序中，可以发现有word程序已经运行，并且将它关闭

不认为这是个好想法，可能会给用户带来麻烦

[realfishhook]

那么第2个问题能不能解决的，假设我的程序运行前就是要关闭所有的打开的word程序？
能不能先查找是否有打开的程序，然后关闭？（这回给用户带来什么问题呢）
请指教？！

[musicbomber]

我想，在第二个问题中，可以在程序中检测是否有word程序已经运行，如有，则弹出对话框，提示应先把所有的打开的word程序关闭（可由用户自行关闭，也可由程序去关闭），这样应该就不会错误关闭用户另外的word文档了。

[realfishhook]

对，我就是想象楼上说的那么去做
能不能给个例子，简单代码也好，多谢

[TIANHEI]

up

[软侠]

好象有一个专门用于关闭指定程序（进程）的API函数，我不记得了，大家是否可以提供一下信息呢？

[cslf]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
sub killWord()
dim h,h1 as long
Do
h = FindWindow("OpusApp", vbNullString)
If h = 0 Then Exit Do
h1 = SendMessage(h, WM_CLOSE, 0, 0)
Loop
end sub
可以根据实际情况修改