IF dw_frm.SaveAs('c:\reports\users'+dw_menu.getitemstring(i,"Userid")+dw_menu.getitemstring(i,"UserName")+'.doc', HTMLTable!, TRUE,EncodingUTF8!) = -1 THEN 
        MessageBox("Warning", "Unable to export data. Error writing to file!", Exclamation!) 
        RETURN -1; 
    END IF;

	ole_object = CREATE OleObject   
		li_result = ole_object.ConnectToNewObject("word.application")
		 IF li_result <> 0 THEN
			 DESTROY ole_object
			 MessageBox("OLE Error", "No connect a Word " & 
			 + "CODE: " & 
			 + String(li_result))
			  SetPointer(Arrow!)
				  RETURN -1;
		 END IF 
		 ole_object.documents.open('c:\reports\users\'+dw_menu.getitemstring(i,"Userid")+dw_menu.getitemstring(i,"UserName")+'.doc')
		 ole_object.visible=false;		 
		 ole_object.ActiveDocument.pagesetup.LeftMargin=ole_object.CentimetersToPoints( 0.6)
		 ole_object.ActiveDocument.pagesetup.RightMargin=ole_object.CentimetersToPoints(0.6)		 
		 ole_object.ActiveDocument.Save()
		 ole_object.quit(0)
		 ole_object.disconnectobject( )
		 destroy ole_object	
    dw_frm.reset()