DECLARE
   -- ...
   rangeFound OLE2.OBJ_TYPE;
BEGIN
   -- 
   OLE2.ADD_ARG(arg,'text to find');
   rangeFound := OLE2.INVOKE_OBJ(srcRangeHandle,'Find',arg);
   
   -- проверки на NULL не помогают, например, в случае, если будет Nothing, то
   -- RELEASE не работает.
   IF rangeFound IS NULL THEN
      Message('Текст не был найден');
   ELSE
      Message('Текст найден!');
      OLE2.RELEASE_OBJ(rangeFound);
   END IF;
END;

DISP_E_TYPEMISMATCH =  2147614725 

arg := ['some text'];
rangeFound := OLE2.INVOKE_OBJ(srcRange,'Find',arg);

<проверка результата - найдено или нет>

arg := [rangeFound];
rangeFound := OLE2.INVOKE_OBJ(srcRange,'FindNext',arg); --> Исключение

/*
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

*/  
DECLARE
    textToFind   CONSTANT VARCHAR2( 100 ) := 'TABLE';
    srcFileName  CONSTANT VARCHAR2( 100 ) := 'c:\1.xls';
    
    app          OLE2.obj_type;    -- Excel.Application
    wbs          OLE2.obj_type;    -- Application.Workbooks
    wb           OLE2.obj_type;    -- Workbooks.Open result
    wss          OLE2.obj_type;    -- Worksheets
    arg          OLE2.list_type;    -- method arguments  
    sheet        OLE2.OBJ_TYPE;
    cells        OLE2.OBJ_TYPE;
    rangeFound   OLE2.OBJ_TYPE;
    rangeFound2  OLE2.OBJ_TYPE;

    firstAddress VARCHAR2( 100 );
    sheetCount   PLS_INTEGER;            
    oleError     NUMBER;
    oleErrorT    VARCHAR2( 32767 );    
BEGIN

    app := OLE2.Create_Obj ('Excel.Application');  
    OLE2.Set_Property(app,'Visible',true);
    
    wbs := OLE2.Get_Obj_Property(app, 'Workbooks');    
    
    arg := OLE2.Create_Arglist;     -- Parameters to open document:
    OLE2.add_arg(arg,srcFileName);    -- FileName   
        
    wb := OLE2.Invoke_Obj(wbs,'Open',arg);
    OLE2.DESTROY_ARGLIST(arg);
        
    wss := OLE2.GET_OBJ_PROPERTY(wb,'Worksheets');

    sheetCount := OLE2.GET_NUM_PROPERTY(wss,'Count',NULL);
  
    FOR i IN  1 ..SheetCount LOOP
        --
        --  Выбор i-го листа в книге
        --
        arg := OLE2.CREATE_ARGLIST;
        OLE2.ADD_ARG(arg,i);
        sheet := OLE2.GET_OBJ_PROPERTY(wss,'Item',arg);
        OLE2.DESTROY_ARGLIST(arg);
                        
        --
        -- Получение диапазона всех ячеек листа
        --
        cells := OLE2.GET_OBJ_PROPERTY(sheet,'Cells',NULL);
    
        --
        -- Выполнение первого поиска
        --
        arg := OLE2.CREATE_ARGLIST;
        OLE2.ADD_ARG(arg, textToFind);                
        rangeFound := OLE2.INVOKE_OBJ(cells,'Find',arg);
        OLE2.DESTROY_ARGLIST(arg);
        
        BEGIN
            firstAddress := OLE2.GET_CHAR_PROPERTY(rangeFound,'Address');
            
            LOOP
                --
                -- проверка найден ли результат
                --
                
                message( OLE2.GET_CHAR_PROPERTY(rangeFound,'Value'));
                SYNCHRONIZE;
                PAUSE;
                
                rangeFound2 := rangeFound;            
                        
                arg := OLE2.CREATE_ARGLIST;
                OLE2.ADD_ARG_OBJ(arg,rangeFound);        
                rangeFound  := OLE2.INVOKE_OBJ(cells,'FindNext',arg);        
                OLE2.DESTROY_ARGLIST(arg);
                
                OLE2.RELEASE_OBJ(rangeFound2);
                
                EXIT WHEN OLE2.GET_CHAR_PROPERTY(rangeFound,'Address') = firstAddress;
                      
            END LOOP;    
        EXCEPTION WHEN OTHERS THEN
          oleError := OLE2.LAST_EXCEPTION(oleErrorT);
          Message(TO_CHAR(OleError) || ' : ' || oleErrorT);
        END;    
    END LOOP;
    
    OLE2.RELEASE_OBJ(cells);
    OLE2.RELEASE_OBJ(sheet);
    OLE2.RELEASE_OBJ(wss);
    OLE2.RELEASE_OBJ(wb);
    OLE2.RELEASE_OBJ(wbs);
    OLE2.INVOKE(app,'Quit');
    OLE2.RELEASE_OBJ(app); 
    
END;