method pushButton(var eventInfo Event)
var
datHandles Dynarray[] AnyType
handle string
endVar
const
WM_CLOSE = 16
endConst
enumWindowHandles( datHandles, "OpusApp" )
if datHandles.size() = 0 then
msgStop( "Sorry", "No instances of Word were found" )
else
forEach handle in datHandles
winSendMessage( longInt( handle ), WM_CLOSE, 0, 0 )
endForEach
endIf
endmethod