pb中利用ole控件存储大文本文件的有关问题

pb中利用ole控件存储大文本文件的问题
我利用ole控件实现word 和excel文件的存储和查看功能，以前用office2003没问题，现在用office2007 以后，附件打开后读不到内容，求高手帮忙

附部分代码
文件上传模块
long ll_row
if this.rowcount() > 0 then
ll_row = this.getrow()
string ls_docname,ls_named
choose case dwo.name
case "b_2"
int li_result
//将图片显示在图片控件中
  integer li_fileptr//用作打开的文件号
long ll_filelen//存储文件的长度
integer li_loops //存储循环次数
integer i //用作循环的变量
long ll_bytes_read,ll_new_pos
  //迫不得已的多定义出这两个变量来，否则第二次选择图片时lbb_read,lbb_total就不能清除
  blob lbb_read2,lbb_total
li_result=getfileopenname("打开文件",ls_docname,ls_named,"rtf",&
"doc files(*.doc),*.doc,"&
+"text files(*.txt),*.txt,"&
  +"jpg files(*.jpg),*.jpg,"&
  +"rtf files(*.rtf),*.rtf,"&
  +"bmp files(*.bmp),*.bmp,"&
  +"all files(*.*),*.*")
long ll
ll=filelength(ls_docname)
li_fileptr=fileopen(ls_docname,streammode!,read!,lockread!) //打开该文件
if li_fileptr= - 1 then
beep(2)
// messagebox("信息提示!","图形文件打开错误!")
  return
end if
//获取文件的长度
ll_filelen=500000000
if ll > 32766 then
li_loops=((ll - 1)/32766) + 1 //计算需要重复读取的次数
else
li_loops=1
end if
for i= 1 to li_loops //循环读取
ll_bytes_read=fileread(li_fileptr,lbb_read2)
lbb_total=lbb_total+lbb_read2
ll_new_pos=ll_new_pos+ll_bytes_read
fileseek(li_fileptr,ll_new_pos,frombeginning!)
next
fileclose(li_fileptr)
setpointer(hourglass!)
setpointer(arrow!)
lbb_array[ll_row]=lbb_total
end choose
end if

打开文件
if dw_1.rowcount() > 0 then
dw_1.oleactivate(dw_1.getrow(),"blob_1",0)
end if

------解决方案--------------------
打开文件
if dw_1.rowcount() > 0 then
dw_1.oleactivate(dw_1.getrow(),"blob_1",0) //这么代码好像不对吧？
end if