关闭word解决方案

关闭word
请问怎样用vf代码在调用word前判断有没有word打开，若有打开的使所有打开的word关闭？

[解决办法]
Try
m.Excel = GetObject(,'Excel.Application')
m.Excel.DisplayAlerts = .F.
m.Excel.Quit
CATCH

Endtry
都市朋友也对的，加上M.EXCEL.DISPLAYALERTS=.F.最好，是用来打开关门的EXCEL或WORD时不会弹出警告对话框！