function get_word_cur_PageNumber(p_application ole2.obj_type) return number
is
    wdActiveEndPageNumber   number := 3; -- ref: http://msdn.microsoft.com/en-us/library/bb213848(v=office.12).aspx
    
    args        ole2.LIST_TYPE;
    dSelection	ole2.obj_type;
    
    l_numpage number;
    
begin

    args := ole2.CREATE_ARGLIST;
    ole2.ADD_ARG(args, wdActiveEndPageNumber);

    dSelection := OLE2.GET_OBJ_PROPERTY(p_application, 'Selection');
    l_numpage  := OLE2.GET_NUM_PROPERTY(dSelection, 'Information', args);

    OLE2.DESTROY_ARGLIST(args);
    
    return l_numpage;

end;