DECLARE
  MyApplication  ole2.obj_Type;
   Workbooks      ole2.obj_Type;
   Workbook       ole2.obj_Type;
   MyDocuments    ole2.obj_Type;
   MySelection    ole2.obj_Type;
   MyDocument     ole2.obj_Type;
   args           ole2.List_Type;
   CURSOR c1 IS 
     SELECT Rpad(ROWNUM,30)
            ||Rpad(YearCode,30)
            ||Rpad(comp_Code,30)
            ||Rpad(div_Code,30) txt
     FROM   prtJobhd
     WHERE  ROWNUM < 5;
BEGIN
  MyApplication := ole2.Create_obj('Word.Application');
  
  ole2.Set_Property(MyApplication,'Visible',1);
  
  MyDocuments := ole2.Get_obj_Property(MyApplication,'Documents');
  
  MyDocument := ole2.Invoke_obj(MyDocuments,'Add');
  
  MySelection := ole2.Get_obj_Property(MyApplication,'Selection');
  
  FOR Counter IN c1 LOOP
    ole2.Set_Property(MySelection,'Text',Counter.txt);
  END LOOP;
  
  args := ole2.Create_argList;
  
  ole2.Add_arg(args,'D:\VPURI\DOCS\EXAMPLE.DOC');
  
  ole2.Invoke(MyDocument,'SaveAs',args);
  
  ole2.Destroy_argList(args);
  
  ole2.Release_obj(MySelection);
  
  ole2.Release_obj(MyDocument);
  
  ole2.Release_obj(MyDocuments);
  
  ole2.Release_obj(MyApplication);
EXCEPTION
  WHEN OTHERS THEN
    Message(SQLERRM);
    
    Message(SQLERRM);
END;