高手帮忙，如何关闭已在运行的word?

[chengbhz]

VB程序用WORD作报表输出，为了防止更改我的样本格式，我先把样本格式copy到一个文件名，但是当该文件名已打开时整个程序是挂起，现在是如何把该运行的文件关闭？

[dbcontrols]

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 Declare Function FindWindow% Lib "user32" Alias "FindWindowA" (ByVal lpclassname As Any, ByVal lpCaption As Any)
Const WM_CLOSE = &H10
Private Function CloseIt()
Dim X&, hwnd%
hwnd% = FindWindow%("OpusApp", 0&)
SendMessage hwnd%, WM_CLOSE, 0, 0
End Function

Private Sub Command1_Click()
CloseIt
End Sub